/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / comint / gdbsrc.elc.z / gdbsrc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 37 3a 33 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:31 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 6f 6d 69 |s-20.3/l|isp/comi|
|000000a0| 6e 74 2f 67 64 62 73 72 | 63 2e 65 6c 0a 3b 3b 3b |nt/gdbsr|c.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 67 64 62 73 72 63 | (error |"`gdbsrc|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 72 65 71 75 | 69 72 65 20 27 67 64 62 |...(requ|ire 'gdb|
|00000260| 20 22 67 64 62 22 29 0a | 23 40 36 34 20 2a 53 65 | "gdb").|#@64 *Se|
|00000270| 74 20 74 6f 20 6e 69 6c | 20 69 66 20 79 6f 75 20 |t to nil| if you |
|00000280| 64 6f 20 6e 6f 74 20 77 | 61 6e 74 20 73 6f 75 72 |do not w|ant sour|
|00000290| 63 65 20 66 69 6c 65 73 | 20 70 75 74 20 69 6e 20 |ce files| put in |
|000002a0| 67 64 62 73 72 63 2d 6d | 6f 64 65 1f 0a 28 64 65 |gdbsrc-m|ode..(de|
|000002b0| 66 76 61 72 20 67 64 62 | 73 72 63 2d 61 63 74 69 |fvar gdb|src-acti|
|000002c0| 76 65 2d 70 20 74 20 28 | 23 24 20 2e 20 2d 36 32 |ve-p t (|#$ . -62|
|000002d0| 31 29 29 0a 23 40 34 39 | 20 54 72 75 65 20 69 66 |1)).#@49| True if|
|000002e0| 20 67 64 62 20 63 6f 6d | 6d 61 6e 64 20 69 73 73 | gdb com|mand iss|
|000002f0| 75 65 64 20 66 72 6f 6d | 20 61 20 73 6f 75 72 63 |ued from| a sourc|
|00000300| 65 20 62 75 66 66 65 72 | 1f 0a 28 64 65 66 76 61 |e buffer|..(defva|
|00000310| 72 20 67 64 62 73 72 63 | 2d 63 61 6c 6c 2d 70 20 |r gdbsrc|-call-p |
|00000320| 6e 69 6c 20 28 23 24 20 | 2e 20 37 32 39 29 29 0a |nil (#$ |. 729)).|
|00000330| 23 40 33 37 20 42 75 66 | 66 65 72 20 6e 61 6d 65 |#@37 Buf|fer name|
|00000340| 20 6f 66 20 61 74 74 61 | 63 68 65 64 20 67 64 62 | of atta|ched gdb|
|00000350| 20 70 72 6f 63 65 73 73 | 1f 0a 28 64 65 66 76 61 | process|..(defva|
|00000360| 72 20 67 64 62 73 72 63 | 2d 61 73 73 6f 63 69 61 |r gdbsrc|-associa|
|00000370| 74 65 64 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 28 |ted-buff|er nil (|
|00000380| 23 24 20 2e 20 38 32 31 | 29 29 0a 23 40 35 31 20 |#$ . 821|)).#@51 |
|00000390| 49 6e 64 69 63 61 74 65 | 73 20 77 68 65 74 68 65 |Indicate|s whethe|
|000003a0| 72 20 62 75 66 66 65 72 | 20 69 73 20 69 6e 20 67 |r buffer| is in g|
|000003b0| 64 62 73 72 63 2d 6d 6f | 64 65 20 6f 72 20 6e 6f |dbsrc-mo|de or no|
|000003c0| 74 1f 0a 28 64 65 66 76 | 61 72 20 67 64 62 73 72 |t..(defv|ar gdbsr|
|000003d0| 63 2d 6d 6f 64 65 20 6e | 69 6c 20 28 23 24 20 2e |c-mode n|il (#$ .|
|000003e0| 20 39 31 32 29 29 0a 28 | 6d 61 6b 65 2d 76 61 72 | 912)).(|make-var|
|000003f0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00000400| 61 6c 20 27 67 64 62 73 | 72 63 2d 6d 6f 64 65 29 |al 'gdbs|rc-mode)|
|00000410| 0a 23 40 36 33 20 49 6e | 64 69 63 61 74 65 73 20 |.#@63 In|dicates |
|00000420| 77 68 65 74 68 65 72 20 | 67 6c 6f 62 61 6c 20 67 |whether |global g|
|00000430| 64 62 73 72 63 20 62 69 | 6e 64 69 6e 67 73 20 61 |dbsrc bi|ndings a|
|00000440| 72 65 20 69 6e 20 65 66 | 66 65 63 74 20 6f 72 20 |re in ef|fect or |
|00000450| 6e 6f 74 1f 0a 28 64 65 | 66 76 61 72 20 67 64 62 |not..(de|fvar gdb|
|00000460| 73 72 63 2d 67 6c 6f 62 | 61 6c 2d 6d 6f 64 65 20 |src-glob|al-mode |
|00000470| 6e 69 6c 20 28 23 24 20 | 2e 20 31 30 34 36 29 29 |nil (#$ |. 1046))|
|00000480| 0a 23 40 34 39 20 41 20 | 72 65 67 65 78 70 20 66 |.#@49 A |regexp f|
|00000490| 6f 72 20 6d 61 74 63 68 | 69 6e 67 20 74 68 65 20 |or match|ing the |
|000004a0| 65 6e 64 20 6f 66 20 74 | 68 65 20 67 64 62 20 70 |end of t|he gdb p|
|000004b0| 72 6f 6d 70 74 1f 0a 28 | 64 65 66 76 61 72 20 67 |rompt..(|defvar g|
|000004c0| 64 62 2d 70 72 6f 6d 70 | 74 2d 70 61 74 74 65 72 |db-promp|t-patter|
|000004d0| 6e 20 22 5e 5b 5e 29 23 | 24 25 3e 5c 6e 5d 2a 5b |n "^[^)#|$%>\n]*[|
|000004e0| 29 23 24 25 3e 5d 20 2a | 22 20 28 23 24 20 2e 20 |)#$%>] *|" (#$ . |
|000004f0| 31 31 35 38 29 29 0a 23 | 40 36 34 20 47 6c 6f 62 |1158)).#|@64 Glob|
|00000500| 61 6c 20 6d 69 6e 6f 72 | 20 6b 65 79 6d 61 70 20 |al minor| keymap |
|00000510| 74 68 61 74 20 69 73 20 | 61 63 74 69 76 65 20 77 |that is |active w|
|00000520| 68 65 6e 65 76 65 72 20 | 67 64 62 73 72 63 20 69 |henever |gdbsrc i|
|00000530| 73 20 72 75 6e 6e 69 6e | 67 2e 1f 0a 28 64 65 66 |s runnin|g...(def|
|00000540| 76 61 72 20 67 64 62 73 | 72 63 2d 67 6c 6f 62 61 |var gdbs|rc-globa|
|00000550| 6c 2d 6d 61 70 20 28 62 | 79 74 65 2d 63 6f 64 65 |l-map (b|yte-code|
|00000560| 20 22 c0 20 19 c2 09 c3 | 5c 22 88 c4 09 c5 c6 23 | ". ....|\".....#|
|00000570| 88 c4 09 c7 c8 23 88 c4 | 09 c9 ca 23 88 c4 09 cb |.....#..|...#....|
|00000580| cc 23 88 c4 09 cd ce 23 | 88 c4 09 cf d0 23 88 c4 |.#.....#|.....#..|
|00000590| 09 d1 d2 23 88 09 29 87 | 22 20 5b 6d 61 6b 65 2d |...#..).|" [make-|
|000005a0| 73 70 61 72 73 65 2d 6b | 65 79 6d 61 70 20 6d 61 |sparse-k|eymap ma|
|000005b0| 70 20 73 65 74 2d 6b 65 | 79 6d 61 70 2d 6e 61 6d |p set-ke|ymap-nam|
|000005c0| 65 20 67 64 62 73 72 63 | 2d 67 6c 6f 62 61 6c 2d |e gdbsrc|-global-|
|000005d0| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|000005e0| 18 20 22 20 67 64 62 2d | 62 72 65 61 6b 20 22 94 |. " gdb-|break ".|
|000005f0| 22 20 67 64 62 73 72 63 | 2d 6d 6f 64 65 20 22 87 |" gdbsrc|-mode ".|
|00000600| 22 20 67 64 62 73 72 63 | 2d 67 6f 74 6f 2d 67 64 |" gdbsrc|-goto-gd|
|00000610| 62 20 28 6d 65 74 61 20 | 62 75 74 74 6f 6e 32 29 |b (meta |button2)|
|00000620| 20 67 64 62 73 72 63 2d | 70 72 69 6e 74 2d 63 73 | gdbsrc-|print-cs|
|00000630| 65 78 70 20 28 6d 65 74 | 61 20 73 68 69 66 74 20 |exp (met|a shift |
|00000640| 62 75 74 74 6f 6e 32 29 | 20 67 64 62 73 72 63 2d |button2)| gdbsrc-|
|00000650| 2a 70 72 69 6e 74 2d 63 | 73 65 78 70 20 28 6d 65 |*print-c|sexp (me|
|00000660| 74 61 20 62 75 74 74 6f | 6e 31 29 20 67 64 62 73 |ta butto|n1) gdbs|
|00000670| 72 63 2d 73 65 74 2d 62 | 72 65 61 6b 20 28 6d 65 |rc-set-b|reak (me|
|00000680| 74 61 20 73 68 69 66 74 | 20 62 75 74 74 6f 6e 31 |ta shift| button1|
|00000690| 29 20 67 64 62 73 72 63 | 2d 73 65 74 2d 74 62 72 |) gdbsrc|-set-tbr|
|000006a0| 65 61 6b 2d 63 6f 6e 74 | 69 6e 75 65 5d 20 34 29 |eak-cont|inue] 4)|
|000006b0| 20 28 23 24 20 2e 20 31 | 32 37 36 29 29 0a 28 61 | (#$ . 1|276)).(a|
|000006c0| 64 64 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 27 67 |dd-minor|-mode 'g|
|000006d0| 64 62 73 72 63 2d 67 6c | 6f 62 61 6c 2d 6d 6f 64 |dbsrc-gl|obal-mod|
|000006e0| 65 20 22 20 47 64 62 47 | 6c 6f 62 61 6c 22 20 67 |e " GdbG|lobal" g|
|000006f0| 64 62 73 72 63 2d 67 6c | 6f 62 61 6c 2d 6d 61 70 |dbsrc-gl|obal-map|
|00000700| 29 0a 23 40 34 31 20 4d | 69 6e 6f 72 20 6b 65 79 |).#@41 M|inor key|
|00000710| 6d 61 70 20 66 6f 72 20 | 62 75 66 66 65 72 73 20 |map for |buffers |
|00000720| 69 6e 20 67 64 62 73 72 | 63 2d 6d 6f 64 65 1f 0a |in gdbsr|c-mode..|
|00000730| 28 64 65 66 76 61 72 20 | 67 64 62 73 72 63 2d 6d |(defvar |gdbsrc-m|
|00000740| 6f 64 65 2d 6d 61 70 20 | 28 62 79 74 65 2d 63 6f |ode-map |(byte-co|
|00000750| 64 65 20 22 c0 20 19 c2 | 09 21 88 c3 09 c4 5c 22 |de ". ..|.!....\"|
|00000760| 88 c5 09 0e 06 43 5c 22 | 88 c7 09 c8 c9 23 88 c7 |.....C\"|.....#..|
|00000770| 09 ca c9 23 88 c7 09 cb | cc 23 88 c7 09 cd ce 23 |...#....|.#.....#|
|00000780| 88 c7 09 cf ce 23 88 c7 | 09 d0 d1 23 88 c7 09 d2 |.....#..|...#....|
|00000790| d3 23 88 c7 09 d4 d5 23 | 88 c7 09 d6 d7 23 88 09 |.#.....#|.....#..|
|000007a0| 29 87 22 20 5b 6d 61 6b | 65 2d 73 70 61 72 73 65 |)." [mak|e-sparse|
|000007b0| 2d 6b 65 79 6d 61 70 20 | 6d 61 70 20 73 75 70 70 |-keymap |map supp|
|000007c0| 72 65 73 73 2d 6b 65 79 | 6d 61 70 20 73 65 74 2d |ress-key|map set-|
|000007d0| 6b 65 79 6d 61 70 2d 6e | 61 6d 65 20 67 64 62 73 |keymap-n|ame gdbs|
|000007e0| 72 63 2d 6d 6f 64 65 2d | 6d 61 70 20 73 65 74 2d |rc-mode-|map set-|
|000007f0| 6b 65 79 6d 61 70 2d 70 | 61 72 65 6e 74 73 20 67 |keymap-p|arents g|
|00000800| 64 62 73 72 63 2d 67 6c | 6f 62 61 6c 2d 6d 61 70 |dbsrc-gl|obal-map|
|00000810| 20 64 65 66 69 6e 65 2d | 6b 65 79 20 22 18 11 22 | define-|key ".."|
|00000820| 20 67 64 62 73 72 63 2d | 6d 6f 64 65 20 22 03 03 | gdbsrc-|mode "..|
|00000830| 22 20 22 62 22 20 67 64 | 62 2d 62 72 65 61 6b 20 |" "b" gd|b-break |
|00000840| 22 67 22 20 67 64 62 73 | 72 63 2d 67 6f 74 6f 2d |"g" gdbs|rc-goto-|
|00000850| 67 64 62 20 22 21 22 20 | 22 70 22 20 67 64 62 2d |gdb "!" |"p" gdb-|
|00000860| 70 72 69 6e 74 2d 63 2d | 73 65 78 70 20 22 2a 22 |print-c-|sexp "*"|
|00000870| 20 67 64 62 2d 2a 70 72 | 69 6e 74 2d 63 2d 73 65 | gdb-*pr|int-c-se|
|00000880| 78 70 20 22 3f 22 20 67 | 64 62 2d 77 68 61 74 69 |xp "?" g|db-whati|
|00000890| 73 2d 63 2d 73 65 78 70 | 20 22 52 22 20 67 64 62 |s-c-sexp| "R" gdb|
|000008a0| 73 72 63 2d 72 65 73 65 | 74 5d 20 34 29 20 28 23 |src-rese|t] 4) (#|
|000008b0| 24 20 2e 20 31 37 39 39 | 29 29 0a 28 62 79 74 65 |$ . 1799|)).(byte|
|000008c0| 2d 63 6f 64 65 20 22 c0 | c1 c2 0b 23 88 c4 c5 21 |-code ".|...#...!|
|000008d0| ac 82 c6 15 c5 0e 07 42 | 16 07 c0 87 22 20 5b 61 |.......B|...." [a|
|000008e0| 64 64 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 67 64 |dd-minor|-mode gd|
|000008f0| 62 73 72 63 2d 6d 6f 64 | 65 20 22 20 47 64 62 53 |bsrc-mod|e " GdbS|
|00000900| 72 63 22 20 67 64 62 73 | 72 63 2d 6d 6f 64 65 2d |rc" gdbs|rc-mode-|
|00000910| 6d 61 70 20 62 6f 75 6e | 64 70 20 67 64 62 73 72 |map boun|dp gdbsr|
|00000920| 63 2d 74 6f 6f 6c 62 61 | 72 20 28 5b 65 6f 73 3a |c-toolba|r ([eos:|
|00000930| 3a 74 6f 6f 6c 62 61 72 | 2d 73 74 6f 70 2d 61 74 |:toolbar|-stop-at|
|00000940| 2d 69 63 6f 6e 20 67 64 | 62 2d 62 72 65 61 6b 20 |-icon gd|b-break |
|00000950| 74 20 22 53 74 6f 70 20 | 61 74 20 73 65 6c 65 63 |t "Stop |at selec|
|00000960| 74 65 64 20 70 6f 73 69 | 74 69 6f 6e 22 5d 20 5b |ted posi|tion"] [|
|00000970| 65 6f 73 3a 3a 74 6f 6f | 6c 62 61 72 2d 73 74 6f |eos::too|lbar-sto|
|00000980| 70 2d 69 6e 2d 69 63 6f | 6e 20 67 64 62 2d 62 72 |p-in-ico|n gdb-br|
|00000990| 65 61 6b 20 74 20 22 53 | 74 6f 70 20 69 6e 20 66 |eak t "S|top in f|
|000009a0| 75 6e 63 74 69 6f 6e 20 | 77 68 6f 73 65 20 6e 61 |unction |whose na|
|000009b0| 6d 65 20 69 73 20 73 65 | 6c 65 63 74 65 64 22 5d |me is se|lected"]|
|000009c0| 20 5b 65 6f 73 3a 3a 74 | 6f 6f 6c 62 61 72 2d 63 | [eos::t|oolbar-c|
|000009d0| 6c 65 61 72 2d 61 74 2d | 69 63 6f 6e 20 67 64 62 |lear-at-|icon gdb|
|000009e0| 73 72 63 2d 64 65 6c 65 | 74 65 20 74 20 22 43 6c |src-dele|te t "Cl|
|000009f0| 65 61 72 20 61 74 20 73 | 65 6c 65 63 74 65 64 20 |ear at s|elected |
|00000a00| 70 6f 73 69 74 69 6f 6e | 22 5d 20 5b 65 6f 73 3a |position|"] [eos:|
|00000a10| 3a 74 6f 6f 6c 62 61 72 | 2d 65 76 61 6c 75 61 74 |:toolbar|-evaluat|
|00000a20| 65 2d 69 63 6f 6e 20 67 | 64 62 2d 70 72 69 6e 74 |e-icon g|db-print|
|00000a30| 2d 63 2d 73 65 78 70 20 | 74 20 22 45 76 61 6c 75 |-c-sexp |t "Evalu|
|00000a40| 61 74 65 20 73 65 6c 65 | 63 74 65 64 20 65 78 70 |ate sele|cted exp|
|00000a50| 72 65 73 73 69 6f 6e 3b | 20 73 68 6f 77 73 20 69 |ression;| shows i|
|00000a60| 6e 20 73 65 70 61 72 61 | 74 65 20 58 45 6d 61 63 |n separa|te XEmac|
|00000a70| 73 20 66 72 61 6d 65 22 | 5d 20 5b 65 6f 73 3a 3a |s frame"|] [eos::|
|00000a80| 74 6f 6f 6c 62 61 72 2d | 65 76 61 6c 75 61 74 65 |toolbar-|evaluate|
|00000a90| 2d 73 74 61 72 2d 69 63 | 6f 6e 20 67 64 62 2d 2a |-star-ic|on gdb-*|
|00000aa0| 70 72 69 6e 74 2d 63 2d | 73 65 78 70 20 74 20 22 |print-c-|sexp t "|
|00000ab0| 45 76 61 6c 75 61 74 65 | 20 73 65 6c 65 63 74 65 |Evaluate| selecte|
|00000ac0| 64 20 65 78 70 72 65 73 | 73 69 6f 6e 20 61 73 20 |d expres|sion as |
|00000ad0| 61 20 70 6f 69 6e 74 65 | 72 3b 20 73 68 6f 77 73 |a pointe|r; shows|
|00000ae0| 20 69 6e 20 73 65 70 61 | 72 61 74 65 20 58 45 6d | in sepa|rate XEm|
|00000af0| 61 63 73 20 66 72 61 6d | 65 22 5d 20 5b 65 6f 73 |acs fram|e"] [eos|
|00000b00| 3a 3a 74 6f 6f 6c 62 61 | 72 2d 72 75 6e 2d 69 63 |::toolba|r-run-ic|
|00000b10| 6f 6e 20 67 64 62 73 72 | 63 2d 72 75 6e 20 74 20 |on gdbsr|c-run t |
|00000b20| 22 52 75 6e 20 63 75 72 | 72 65 6e 74 20 70 72 6f |"Run cur|rent pro|
|00000b30| 67 72 61 6d 22 5d 20 5b | 65 6f 73 3a 3a 74 6f 6f |gram"] [|eos::too|
|00000b40| 6c 62 61 72 2d 63 6f 6e | 74 2d 69 63 6f 6e 20 67 |lbar-con|t-icon g|
|00000b50| 64 62 73 72 63 2d 63 6f | 6e 74 20 74 20 22 43 6f |dbsrc-co|nt t "Co|
|00000b60| 6e 74 69 6e 75 65 20 63 | 75 72 72 65 6e 74 20 70 |ntinue c|urrent p|
|00000b70| 72 6f 67 72 61 6d 22 5d | 20 5b 65 6f 73 3a 3a 74 |rogram"]| [eos::t|
|00000b80| 6f 6f 6c 62 61 72 2d 73 | 74 65 70 2d 69 6e 74 6f |oolbar-s|tep-into|
|00000b90| 2d 69 63 6f 6e 20 67 64 | 62 73 72 63 2d 73 74 65 |-icon gd|bsrc-ste|
|00000ba0| 70 20 74 20 22 53 74 65 | 70 20 69 6e 74 6f 20 28 |p t "Ste|p into (|
|00000bb0| 61 6b 61 20 73 74 65 70 | 29 22 5d 20 5b 65 6f 73 |aka step|)"] [eos|
|00000bc0| 3a 3a 74 6f 6f 6c 62 61 | 72 2d 73 74 65 70 2d 6f |::toolba|r-step-o|
|00000bd0| 76 65 72 2d 69 63 6f 6e | 20 67 64 62 73 72 63 2d |ver-icon| gdbsrc-|
|00000be0| 6e 65 78 74 20 74 20 22 | 53 74 65 70 20 6f 76 65 |next t "|Step ove|
|00000bf0| 72 20 28 61 6b 61 20 6e | 65 78 74 29 22 5d 20 5b |r (aka n|ext)"] [|
|00000c00| 65 6f 73 3a 3a 74 6f 6f | 6c 62 61 72 2d 75 70 2d |eos::too|lbar-up-|
|00000c10| 69 63 6f 6e 20 67 64 62 | 73 72 63 2d 75 70 20 74 |icon gdb|src-up t|
|00000c20| 20 22 53 74 61 63 6b 20 | 55 70 20 28 74 6f 77 61 | "Stack |Up (towa|
|00000c30| 72 64 73 20 5c 22 63 6f | 6f 6c 65 72 5c 22 20 2d |rds \"co|oler\" -|
|00000c40| 20 6c 65 73 73 20 72 65 | 63 65 6e 74 6c 79 20 76 | less re|cently v|
|00000c50| 69 73 69 74 65 64 20 2d | 20 66 72 61 6d 65 73 29 |isited -| frames)|
|00000c60| 22 5d 20 5b 65 6f 73 3a | 3a 74 6f 6f 6c 62 61 72 |"] [eos:|:toolbar|
|00000c70| 2d 64 6f 77 6e 2d 69 63 | 6f 6e 20 67 64 62 73 72 |-down-ic|on gdbsr|
|00000c80| 63 2d 64 6f 77 6e 20 74 | 20 22 53 74 61 63 6b 20 |c-down t| "Stack |
|00000c90| 44 6f 77 6e 20 28 74 6f | 77 61 72 64 73 20 5c 22 |Down (to|wards \"|
|00000ca0| 77 61 72 6d 65 72 5c 22 | 20 2d 20 6d 6f 72 65 20 |warmer\"| - more |
|00000cb0| 72 65 63 65 6e 74 6c 79 | 20 76 69 73 69 74 65 64 |recently| visited|
|00000cc0| 20 2d 20 66 72 61 6d 65 | 73 29 22 5d 20 5b 65 6f | - frame|s)"] [eo|
|00000cd0| 73 3a 3a 74 6f 6f 6c 62 | 61 72 2d 66 69 78 2d 69 |s::toolb|ar-fix-i|
|00000ce0| 63 6f 6e 20 6e 69 6c 20 | 6e 69 6c 20 22 46 69 78 |con nil |nil "Fix|
|00000cf0| 20 28 6e 6f 74 20 61 76 | 61 69 6c 61 62 6c 65 20 | (not av|ailable |
|00000d00| 77 69 74 68 20 67 64 62 | 29 22 5d 20 5b 65 6f 73 |with gdb|)"] [eos|
|00000d10| 3a 3a 74 6f 6f 6c 62 61 | 72 2d 62 75 69 6c 64 2d |::toolba|r-build-|
|00000d20| 69 63 6f 6e 20 74 6f 6f | 6c 62 61 72 2d 63 6f 6d |icon too|lbar-com|
|00000d30| 70 69 6c 65 20 74 20 22 | 42 75 69 6c 64 20 28 61 |pile t "|Build (a|
|00000d40| 6b 61 20 6d 61 6b 65 20 | 2d 4e 59 49 29 22 5d 29 |ka make |-NYI)"])|
|00000d50| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000d60| 73 74 5d 20 34 29 0a 23 | 40 35 36 20 43 72 65 61 |st] 4).#|@56 Crea|
|00000d70| 74 65 20 61 20 66 75 6e | 63 74 69 6f 6e 20 74 68 |te a fun|ction th|
|00000d80| 61 74 20 77 69 6c 6c 20 | 63 61 6c 6c 20 47 44 42 |at will |call GDB|
|00000d90| 2d 43 4f 4d 4d 41 4e 44 | 20 77 69 74 68 20 4b 45 |-COMMAND| with KE|
|00000da0| 59 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |Y...(def|alias 'd|
|00000db0| 65 66 2d 67 64 62 2d 66 | 72 6f 6d 2d 73 72 63 20 |ef-gdb-f|rom-src |
|00000dc0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 67 64 62 |'(macro |. #[(gdb|
|00000dd0| 2d 63 6f 6d 6d 61 6e 64 | 20 6b 65 79 20 26 6f 70 |-command| key &op|
|00000de0| 74 69 6f 6e 61 6c 20 64 | 6f 63 20 26 72 65 73 74 |tional d|oc &rest|
|00000df0| 20 66 6f 72 6d 73 29 20 | 22 c0 c1 5c 6e 5c 22 1b | forms) |"..\n\".|
|00000e00| c4 c5 c0 c6 5c 6e c7 46 | 5c 6e 46 1e 08 c9 1e 5c |....\n.F|\nF....\|
|00000e10| 6e cb cc 0b 5c 22 ab 88 | 0b cd 94 ce 49 88 aa 72 |n...\"..|....I..r|
|00000e20| cf 0b 21 16 5c 6e d0 d1 | 0e 5c 6e d2 0e 13 ae 81 |..!.\n..|.\n.....|
|00000e30| d4 d5 d6 0e 08 44 af 06 | 0e 17 a4 d8 d9 0e 1a db |.....D..|........|
|00000e40| 0e 5c 6e 44 46 45 2b 87 | 22 20 5b 66 6f 72 6d 61 |.\nDFE+.|" [forma|
|00000e50| 74 20 22 67 64 62 73 72 | 63 2d 25 73 22 20 67 64 |t "gdbsr|c-%s" gd|
|00000e60| 62 2d 63 6f 6d 6d 61 6e | 64 20 66 6e 61 6d 65 20 |b-comman|d fname |
|00000e70| 69 66 20 61 72 67 20 22 | 25 73 20 25 73 22 20 28 |if arg "|%s %s" (|
|00000e80| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00000e90| 61 6c 75 65 20 61 72 67 | 29 20 63 73 74 72 20 6e |alue arg|) cstr n|
|00000ea0| 69 6c 20 66 75 6e 20 73 | 74 72 69 6e 67 2d 6d 61 |il fun s|tring-ma|
|00000eb0| 74 63 68 20 22 20 22 20 | 30 20 3f 5c 2d 20 69 6e |tch " " |0 ?\- in|
|00000ec0| 74 65 72 6e 20 70 72 6f | 67 6e 20 64 65 66 75 6e |tern pro|gn defun|
|00000ed0| 20 28 61 72 67 29 20 64 | 6f 63 20 22 22 20 28 69 | (arg) d|oc "" (i|
|00000ee0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000ef0| 67 64 62 2d 63 61 6c 6c | 2d 66 72 6f 6d 2d 73 72 |gdb-call|-from-sr|
|00000f00| 63 20 66 6f 72 6d 73 20 | 64 65 66 69 6e 65 2d 6b |c forms |define-k|
|00000f10| 65 79 20 67 64 62 73 72 | 63 2d 6d 6f 64 65 2d 6d |ey gdbsr|c-mode-m|
|00000f20| 61 70 20 6b 65 79 20 71 | 75 6f 74 65 5d 20 38 20 |ap key q|uote] 8 |
|00000f30| 28 23 24 20 2e 20 33 34 | 33 36 29 5d 29 29 0a 23 |(#$ . 34|36)])).#|
|00000f40| 40 32 39 20 53 74 65 70 | 20 6f 6e 65 20 69 6e 73 |@29 Step| one ins|
|00000f50| 74 72 75 63 74 69 6f 6e | 20 69 6e 20 73 72 63 1f |truction| in src.|
|00000f60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 64 62 73 |.(defali|as 'gdbs|
|00000f70| 72 63 2d 73 74 65 70 20 | 23 5b 28 61 72 67 29 20 |rc-step |#[(arg) |
|00000f80| 22 c0 09 ab 89 c2 c3 c4 | c5 09 21 23 aa 81 c4 21 |".......|..!#...!|
|00000f90| 88 c6 20 87 22 20 5b 67 | 64 62 2d 63 61 6c 6c 2d |.. ." [g|db-call-|
|00000fa0| 66 72 6f 6d 2d 73 72 63 | 20 61 72 67 20 66 6f 72 |from-src| arg for|
|00000fb0| 6d 61 74 20 22 25 73 20 | 25 73 22 20 22 73 74 65 |mat "%s |%s" "ste|
|00000fc0| 70 22 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |p" prefi|x-numeri|
|00000fd0| 63 2d 76 61 6c 75 65 20 | 67 64 62 2d 64 65 6c 65 |c-value |gdb-dele|
|00000fe0| 74 65 2d 61 72 72 6f 77 | 2d 65 78 74 65 6e 74 5d |te-arrow|-extent]|
|00000ff0| 20 36 20 28 23 24 20 2e | 20 33 39 30 38 29 20 22 | 6 (#$ .| 3908) "|
|00001000| 50 22 5d 29 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |P"]).(de|fine-key|
|00001010| 20 67 64 62 73 72 63 2d | 6d 6f 64 65 2d 6d 61 70 | gdbsrc-|mode-map|
|00001020| 20 22 73 22 20 27 67 64 | 62 73 72 63 2d 73 74 65 | "s" 'gd|bsrc-ste|
|00001030| 70 29 0a 23 40 33 39 20 | 53 74 65 70 20 6f 6e 65 |p).#@39 |Step one|
|00001040| 20 73 6f 75 72 63 65 20 | 6c 69 6e 65 20 28 73 6b | source |line (sk|
|00001050| 69 70 20 66 75 6e 63 74 | 69 6f 6e 73 29 1f 0a 28 |ip funct|ions)..(|
|00001060| 64 65 66 61 6c 69 61 73 | 20 27 67 64 62 73 72 63 |defalias| 'gdbsrc|
|00001070| 2d 73 74 65 70 69 20 23 | 5b 28 61 72 67 29 20 22 |-stepi #|[(arg) "|
|00001080| c0 09 ab 89 c2 c3 c4 c5 | 09 21 23 aa 81 c4 21 88 |........|.!#...!.|
|00001090| c6 20 87 22 20 5b 67 64 | 62 2d 63 61 6c 6c 2d 66 |. ." [gd|b-call-f|
|000010a0| 72 6f 6d 2d 73 72 63 20 | 61 72 67 20 66 6f 72 6d |rom-src |arg form|
|000010b0| 61 74 20 22 25 73 20 25 | 73 22 20 22 73 74 65 70 |at "%s %|s" "step|
|000010c0| 69 22 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |i" prefi|x-numeri|
|000010d0| 63 2d 76 61 6c 75 65 20 | 67 64 62 2d 64 65 6c 65 |c-value |gdb-dele|
|000010e0| 74 65 2d 61 72 72 6f 77 | 2d 65 78 74 65 6e 74 5d |te-arrow|-extent]|
|000010f0| 20 36 20 28 23 24 20 2e | 20 34 31 35 32 29 20 22 | 6 (#$ .| 4152) "|
|00001100| 50 22 5d 29 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |P"]).(de|fine-key|
|00001110| 20 67 64 62 73 72 63 2d | 6d 6f 64 65 2d 6d 61 70 | gdbsrc-|mode-map|
|00001120| 20 22 69 22 20 27 67 64 | 62 73 72 63 2d 73 74 65 | "i" 'gd|bsrc-ste|
|00001130| 70 69 29 0a 23 40 32 33 | 20 43 6f 6e 74 69 6e 75 |pi).#@23| Continu|
|00001140| 65 20 77 69 74 68 20 64 | 69 73 70 6c 61 79 1f 0a |e with d|isplay..|
|00001150| 28 64 65 66 61 6c 69 61 | 73 20 27 67 64 62 73 72 |(defalia|s 'gdbsr|
|00001160| 63 2d 63 6f 6e 74 20 23 | 5b 28 61 72 67 29 20 22 |c-cont #|[(arg) "|
|00001170| c0 09 ab 89 c2 c3 c4 c5 | 09 21 23 aa 81 c4 21 88 |........|.!#...!.|
|00001180| c6 20 87 22 20 5b 67 64 | 62 2d 63 61 6c 6c 2d 66 |. ." [gd|b-call-f|
|00001190| 72 6f 6d 2d 73 72 63 20 | 61 72 67 20 66 6f 72 6d |rom-src |arg form|
|000011a0| 61 74 20 22 25 73 20 25 | 73 22 20 22 63 6f 6e 74 |at "%s %|s" "cont|
|000011b0| 22 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |" prefix|-numeric|
|000011c0| 2d 76 61 6c 75 65 20 67 | 64 62 2d 64 65 6c 65 74 |-value g|db-delet|
|000011d0| 65 2d 61 72 72 6f 77 2d | 65 78 74 65 6e 74 5d 20 |e-arrow-|extent] |
|000011e0| 36 20 28 23 24 20 2e 20 | 34 34 30 39 29 20 22 50 |6 (#$ . |4409) "P|
|000011f0| 22 5d 29 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |"]).(def|ine-key |
|00001200| 67 64 62 73 72 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |gdbsrc-m|ode-map |
|00001210| 22 63 22 20 27 67 64 62 | 73 72 63 2d 63 6f 6e 74 |"c" 'gdb|src-cont|
|00001220| 29 0a 23 40 33 39 20 47 | 6f 20 64 6f 77 6e 20 4e |).#@39 G|o down N|
|00001230| 20 73 74 61 63 6b 20 66 | 72 61 6d 65 73 20 28 6e | stack f|rames (n|
|00001240| 75 6d 65 72 69 63 20 61 | 72 67 29 20 1f 0a 28 64 |umeric a|rg) ..(d|
|00001250| 65 66 61 6c 69 61 73 20 | 27 67 64 62 73 72 63 2d |efalias |'gdbsrc-|
|00001260| 64 6f 77 6e 20 23 5b 28 | 61 72 67 29 20 22 c0 09 |down #[(|arg) "..|
|00001270| ab 89 c2 c3 c4 c5 09 21 | 23 aa 81 c4 21 87 22 20 |.......!|#...!." |
|00001280| 5b 67 64 62 2d 63 61 6c | 6c 2d 66 72 6f 6d 2d 73 |[gdb-cal|l-from-s|
|00001290| 72 63 20 61 72 67 20 66 | 6f 72 6d 61 74 20 22 25 |rc arg f|ormat "%|
|000012a0| 73 20 25 73 22 20 22 64 | 6f 77 6e 22 20 70 72 65 |s %s" "d|own" pre|
|000012b0| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|000012c0| 65 5d 20 36 20 28 23 24 | 20 2e 20 34 36 34 37 29 |e] 6 (#$| . 4647)|
|000012d0| 20 22 50 22 5d 29 0a 28 | 64 65 66 69 6e 65 2d 6b | "P"]).(|define-k|
|000012e0| 65 79 20 67 64 62 73 72 | 63 2d 6d 6f 64 65 2d 6d |ey gdbsr|c-mode-m|
|000012f0| 61 70 20 22 64 22 20 27 | 67 64 62 73 72 63 2d 64 |ap "d" '|gdbsrc-d|
|00001300| 6f 77 6e 29 0a 23 40 33 | 36 20 47 6f 20 75 70 20 |own).#@3|6 Go up |
|00001310| 4e 20 73 74 61 63 6b 20 | 66 72 61 6d 65 73 20 28 |N stack |frames (|
|00001320| 6e 75 6d 65 72 69 63 20 | 61 72 67 29 1f 0a 28 64 |numeric |arg)..(d|
|00001330| 65 66 61 6c 69 61 73 20 | 27 67 64 62 73 72 63 2d |efalias |'gdbsrc-|
|00001340| 75 70 20 23 5b 28 61 72 | 67 29 20 22 c0 09 ab 89 |up #[(ar|g) "....|
|00001350| c2 c3 c4 c5 09 21 23 aa | 81 c4 21 87 22 20 5b 67 |.....!#.|..!." [g|
|00001360| 64 62 2d 63 61 6c 6c 2d | 66 72 6f 6d 2d 73 72 63 |db-call-|from-src|
|00001370| 20 61 72 67 20 66 6f 72 | 6d 61 74 20 22 25 73 20 | arg for|mat "%s |
|00001380| 25 73 22 20 22 75 70 22 | 20 70 72 65 66 69 78 2d |%s" "up"| prefix-|
|00001390| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 5d 20 36 |numeric-|value] 6|
|000013a0| 20 28 23 24 20 2e 20 34 | 38 37 34 29 20 22 50 22 | (#$ . 4|874) "P"|
|000013b0| 5d 29 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 67 |]).(defi|ne-key g|
|000013c0| 64 62 73 72 63 2d 6d 6f | 64 65 2d 6d 61 70 20 22 |dbsrc-mo|de-map "|
|000013d0| 75 22 20 27 67 64 62 73 | 72 63 2d 75 70 29 0a 23 |u" 'gdbs|rc-up).#|
|000013e0| 40 31 34 20 46 69 6e 69 | 73 68 20 66 72 61 6d 65 |@14 Fini|sh frame|
|000013f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 64 62 |..(defal|ias 'gdb|
|00001400| 73 72 63 2d 66 69 6e 69 | 73 68 20 23 5b 28 61 72 |src-fini|sh #[(ar|
|00001410| 67 29 20 22 c0 09 ab 89 | c2 c3 c4 c5 09 21 23 aa |g) "....|.....!#.|
|00001420| 81 c4 21 87 22 20 5b 67 | 64 62 2d 63 61 6c 6c 2d |..!." [g|db-call-|
|00001430| 66 72 6f 6d 2d 73 72 63 | 20 61 72 67 20 66 6f 72 |from-src| arg for|
|00001440| 6d 61 74 20 22 25 73 20 | 25 73 22 20 22 66 69 6e |mat "%s |%s" "fin|
|00001450| 69 73 68 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |ish" pre|fix-nume|
|00001460| 72 69 63 2d 76 61 6c 75 | 65 5d 20 36 20 28 23 24 |ric-valu|e] 6 (#$|
|00001470| 20 2e 20 35 30 39 32 29 | 20 22 50 22 5d 29 0a 28 | . 5092)| "P"]).(|
|00001480| 64 65 66 69 6e 65 2d 6b | 65 79 20 67 64 62 73 72 |define-k|ey gdbsr|
|00001490| 63 2d 6d 6f 64 65 2d 6d | 61 70 20 22 66 22 20 27 |c-mode-m|ap "f" '|
|000014a0| 67 64 62 73 72 63 2d 66 | 69 6e 69 73 68 29 0a 23 |gdbsrc-f|inish).#|
|000014b0| 40 33 33 20 44 69 73 70 | 6c 61 79 20 28 4e 20 66 |@33 Disp|lay (N f|
|000014c0| 72 61 6d 65 73 20 6f 66 | 29 20 62 61 63 6b 74 72 |rames of|) backtr|
|000014d0| 61 63 65 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ace..(de|falias '|
|000014e0| 67 64 62 73 72 63 2d 77 | 68 65 72 65 20 23 5b 28 |gdbsrc-w|here #[(|
|000014f0| 61 72 67 29 20 22 c0 09 | ab 89 c2 c3 c4 c5 09 21 |arg) "..|.......!|
|00001500| 23 aa 81 c4 21 87 22 20 | 5b 67 64 62 2d 63 61 6c |#...!." |[gdb-cal|
|00001510| 6c 2d 66 72 6f 6d 2d 73 | 72 63 20 61 72 67 20 66 |l-from-s|rc arg f|
|00001520| 6f 72 6d 61 74 20 22 25 | 73 20 25 73 22 20 22 77 |ormat "%|s %s" "w|
|00001530| 68 65 72 65 22 20 70 72 | 65 66 69 78 2d 6e 75 6d |here" pr|efix-num|
|00001540| 65 72 69 63 2d 76 61 6c | 75 65 5d 20 36 20 28 23 |eric-val|ue] 6 (#|
|00001550| 24 20 2e 20 35 33 30 30 | 29 20 22 50 22 5d 29 0a |$ . 5300|) "P"]).|
|00001560| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 67 64 62 73 |(define-|key gdbs|
|00001570| 72 63 2d 6d 6f 64 65 2d | 6d 61 70 20 22 77 22 20 |rc-mode-|map "w" |
|00001580| 27 67 64 62 73 72 63 2d | 77 68 65 72 65 29 0a 23 |'gdbsrc-|where).#|
|00001590| 40 32 38 20 53 74 65 70 | 20 6f 6e 65 20 6c 69 6e |@28 Step| one lin|
|000015a0| 65 20 77 69 74 68 20 64 | 69 73 70 6c 61 79 1f 0a |e with d|isplay..|
|000015b0| 28 64 65 66 61 6c 69 61 | 73 20 27 67 64 62 73 72 |(defalia|s 'gdbsr|
|000015c0| 63 2d 6e 65 78 74 20 23 | 5b 28 61 72 67 29 20 22 |c-next #|[(arg) "|
|000015d0| c0 09 ab 89 c2 c3 c4 c5 | 09 21 23 aa 81 c4 21 88 |........|.!#...!.|
|000015e0| c6 20 87 22 20 5b 67 64 | 62 2d 63 61 6c 6c 2d 66 |. ." [gd|b-call-f|
|000015f0| 72 6f 6d 2d 73 72 63 20 | 61 72 67 20 66 6f 72 6d |rom-src |arg form|
|00001600| 61 74 20 22 25 73 20 25 | 73 22 20 22 6e 65 78 74 |at "%s %|s" "next|
|00001610| 22 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |" prefix|-numeric|
|00001620| 2d 76 61 6c 75 65 20 67 | 64 62 2d 64 65 6c 65 74 |-value g|db-delet|
|00001630| 65 2d 61 72 72 6f 77 2d | 65 78 74 65 6e 74 5d 20 |e-arrow-|extent] |
|00001640| 36 20 28 23 24 20 2e 20 | 35 35 32 34 29 20 22 50 |6 (#$ . |5524) "P|
|00001650| 22 5d 29 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |"]).(def|ine-key |
|00001660| 67 64 62 73 72 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |gdbsrc-m|ode-map |
|00001670| 22 6e 22 20 27 67 64 62 | 73 72 63 2d 6e 65 78 74 |"n" 'gdb|src-next|
|00001680| 29 0a 23 40 32 34 20 52 | 75 6e 20 70 72 6f 67 72 |).#@24 R|un progr|
|00001690| 61 6d 20 66 72 6f 6d 20 | 73 74 61 72 74 1f 0a 28 |am from |start..(|
|000016a0| 64 65 66 61 6c 69 61 73 | 20 27 67 64 62 73 72 63 |defalias| 'gdbsrc|
|000016b0| 2d 72 75 6e 20 23 5b 28 | 61 72 67 29 20 22 c0 09 |-run #[(|arg) "..|
|000016c0| ab 89 c2 c3 c4 c5 09 21 | 23 aa 81 c4 21 88 c6 20 |.......!|#...!.. |
|000016d0| 87 22 20 5b 67 64 62 2d | 63 61 6c 6c 2d 66 72 6f |." [gdb-|call-fro|
|000016e0| 6d 2d 73 72 63 20 61 72 | 67 20 66 6f 72 6d 61 74 |m-src ar|g format|
|000016f0| 20 22 25 73 20 25 73 22 | 20 22 72 75 6e 22 20 70 | "%s %s"| "run" p|
|00001700| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00001710| 6c 75 65 20 67 64 62 2d | 64 65 6c 65 74 65 2d 61 |lue gdb-|delete-a|
|00001720| 72 72 6f 77 2d 65 78 74 | 65 6e 74 5d 20 36 20 28 |rrow-ext|ent] 6 (|
|00001730| 23 24 20 2e 20 35 37 36 | 37 29 20 22 50 22 5d 29 |#$ . 576|7) "P"])|
|00001740| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 67 64 62 |.(define|-key gdb|
|00001750| 73 72 63 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 72 22 |src-mode|-map "r"|
|00001760| 20 27 67 64 62 73 72 63 | 2d 72 75 6e 29 0a 23 40 | 'gdbsrc|-run).#@|
|00001770| 33 34 20 52 65 74 75 72 | 6e 20 66 72 6f 6d 20 73 |34 Retur|n from s|
|00001780| 65 6c 65 63 74 65 64 20 | 73 74 61 63 6b 20 66 72 |elected |stack fr|
|00001790| 61 6d 65 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ame..(de|falias '|
|000017a0| 67 64 62 73 72 63 2d 72 | 65 74 75 72 6e 20 23 5b |gdbsrc-r|eturn #[|
|000017b0| 28 61 72 67 29 20 22 c0 | 09 ab 89 c2 c3 c4 c5 09 |(arg) ".|........|
|000017c0| 21 23 aa 81 c4 21 87 22 | 20 5b 67 64 62 2d 63 61 |!#...!."| [gdb-ca|
|000017d0| 6c 6c 2d 66 72 6f 6d 2d | 73 72 63 20 61 72 67 20 |ll-from-|src arg |
|000017e0| 66 6f 72 6d 61 74 20 22 | 25 73 20 25 73 22 20 22 |format "|%s %s" "|
|000017f0| 72 65 74 75 72 6e 22 20 | 70 72 65 66 69 78 2d 6e |return" |prefix-n|
|00001800| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 5d 20 36 20 |umeric-v|alue] 6 |
|00001810| 28 23 24 20 2e 20 36 30 | 30 33 29 20 22 50 22 5d |(#$ . 60|03) "P"]|
|00001820| 29 0a 28 64 65 66 69 6e | 65 2d 6b 65 79 20 67 64 |).(defin|e-key gd|
|00001830| 62 73 72 63 2d 6d 6f 64 | 65 2d 6d 61 70 20 22 52 |bsrc-mod|e-map "R|
|00001840| 22 20 27 67 64 62 73 72 | 63 2d 72 65 74 75 72 6e |" 'gdbsr|c-return|
|00001850| 29 0a 23 40 32 35 20 44 | 69 73 61 62 6c 65 20 61 |).#@25 D|isable a|
|00001860| 6c 6c 20 62 72 65 61 6b | 70 6f 69 6e 74 73 1f 0a |ll break|points..|
|00001870| 28 64 65 66 61 6c 69 61 | 73 20 27 67 64 62 73 72 |(defalia|s 'gdbsr|
|00001880| 63 2d 64 69 73 61 62 6c | 65 20 23 5b 28 61 72 67 |c-disabl|e #[(arg|
|00001890| 29 20 22 c0 09 ab 89 c2 | c3 c4 c5 09 21 23 aa 81 |) ".....|....!#..|
|000018a0| c4 21 87 22 20 5b 67 64 | 62 2d 63 61 6c 6c 2d 66 |.!." [gd|b-call-f|
|000018b0| 72 6f 6d 2d 73 72 63 20 | 61 72 67 20 66 6f 72 6d |rom-src |arg form|
|000018c0| 61 74 20 22 25 73 20 25 | 73 22 20 22 64 69 73 61 |at "%s %|s" "disa|
|000018d0| 62 6c 65 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |ble" pre|fix-nume|
|000018e0| 72 69 63 2d 76 61 6c 75 | 65 5d 20 36 20 28 23 24 |ric-valu|e] 6 (#$|
|000018f0| 20 2e 20 36 32 33 31 29 | 20 22 50 22 5d 29 0a 28 | . 6231)| "P"]).(|
|00001900| 64 65 66 69 6e 65 2d 6b | 65 79 20 67 64 62 73 72 |define-k|ey gdbsr|
|00001910| 63 2d 6d 6f 64 65 2d 6d | 61 70 20 22 78 22 20 27 |c-mode-m|ap "x" '|
|00001920| 67 64 62 73 72 63 2d 64 | 69 73 61 62 6c 65 29 0a |gdbsrc-d|isable).|
|00001930| 23 40 32 34 20 44 65 6c | 65 74 65 20 61 6c 6c 20 |#@24 Del|ete all |
|00001940| 62 72 65 61 6b 70 6f 69 | 6e 74 73 1f 0a 28 64 65 |breakpoi|nts..(de|
|00001950| 66 61 6c 69 61 73 20 27 | 67 64 62 73 72 63 2d 64 |falias '|gdbsrc-d|
|00001960| 65 6c 65 74 65 20 23 5b | 28 61 72 67 29 20 22 c0 |elete #[|(arg) ".|
|00001970| 09 ab 89 c2 c3 c4 c5 09 | 21 23 aa 81 c4 21 87 22 |........|!#...!."|
|00001980| 20 5b 67 64 62 2d 63 61 | 6c 6c 2d 66 72 6f 6d 2d | [gdb-ca|ll-from-|
|00001990| 73 72 63 20 61 72 67 20 | 66 6f 72 6d 61 74 20 22 |src arg |format "|
|000019a0| 25 73 20 25 73 22 20 22 | 64 65 6c 65 74 65 22 20 |%s %s" "|delete" |
|000019b0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|000019c0| 61 6c 75 65 5d 20 36 20 | 28 23 24 20 2e 20 36 34 |alue] 6 |(#$ . 64|
|000019d0| 35 33 29 20 22 50 22 5d | 29 0a 28 64 65 66 69 6e |53) "P"]|).(defin|
|000019e0| 65 2d 6b 65 79 20 67 64 | 62 73 72 63 2d 6d 6f 64 |e-key gd|bsrc-mod|
|000019f0| 65 2d 6d 61 70 20 22 58 | 22 20 27 67 64 62 73 72 |e-map "X|" 'gdbsr|
|00001a00| 63 2d 64 65 6c 65 74 65 | 29 0a 23 40 31 31 20 51 |c-delete|).#@11 Q|
|00001a10| 75 69 74 20 67 64 62 2e | 1f 0a 28 64 65 66 61 6c |uit gdb.|..(defal|
|00001a20| 69 61 73 20 27 67 64 62 | 73 72 63 2d 71 75 69 74 |ias 'gdb|src-quit|
|00001a30| 20 23 5b 28 61 72 67 29 | 20 22 c0 09 ab 89 c2 c3 | #[(arg)| "......|
|00001a40| c4 c5 09 21 23 aa 81 c4 | 21 88 c6 20 87 22 20 5b |...!#...|!.. ." [|
|00001a50| 67 64 62 2d 63 61 6c 6c | 2d 66 72 6f 6d 2d 73 72 |gdb-call|-from-sr|
|00001a60| 63 20 61 72 67 20 66 6f | 72 6d 61 74 20 22 25 73 |c arg fo|rmat "%s|
|00001a70| 20 25 73 22 20 22 71 75 | 69 74 22 20 70 72 65 66 | %s" "qu|it" pref|
|00001a80| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00001a90| 20 67 64 62 2d 64 65 6c | 65 74 65 2d 61 72 72 6f | gdb-del|ete-arro|
|00001aa0| 77 2d 65 78 74 65 6e 74 | 5d 20 36 20 28 23 24 20 |w-extent|] 6 (#$ |
|00001ab0| 2e 20 36 36 37 31 29 20 | 22 50 22 5d 29 0a 28 64 |. 6671) |"P"]).(d|
|00001ac0| 65 66 69 6e 65 2d 6b 65 | 79 20 67 64 62 73 72 63 |efine-ke|y gdbsrc|
|00001ad0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 51 22 20 27 67 |-mode-ma|p "Q" 'g|
|00001ae0| 64 62 73 72 63 2d 71 75 | 69 74 29 0a 23 40 32 32 |dbsrc-qu|it).#@22|
|00001af0| 20 53 68 6f 77 20 6c 6f | 63 61 6c 20 76 61 72 69 | Show lo|cal vari|
|00001b00| 61 62 6c 65 73 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ables..(|defalias|
|00001b10| 20 27 67 64 62 73 72 63 | 2d 69 6e 66 6f 2d 6c 6f | 'gdbsrc|-info-lo|
|00001b20| 63 61 6c 73 20 23 5b 28 | 61 72 67 29 20 22 c0 09 |cals #[(|arg) "..|
|00001b30| ab 89 c2 c3 c4 c5 09 21 | 23 aa 81 c4 21 87 22 20 |.......!|#...!." |
|00001b40| 5b 67 64 62 2d 63 61 6c | 6c 2d 66 72 6f 6d 2d 73 |[gdb-cal|l-from-s|
|00001b50| 72 63 20 61 72 67 20 66 | 6f 72 6d 61 74 20 22 25 |rc arg f|ormat "%|
|00001b60| 73 20 25 73 22 20 22 69 | 6e 66 6f 20 6c 6f 63 61 |s %s" "i|nfo loca|
|00001b70| 6c 73 22 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |ls" pref|ix-numer|
|00001b80| 69 63 2d 76 61 6c 75 65 | 5d 20 36 20 28 23 24 20 |ic-value|] 6 (#$ |
|00001b90| 2e 20 36 38 39 37 29 20 | 22 50 22 5d 29 0a 28 64 |. 6897) |"P"]).(d|
|00001ba0| 65 66 69 6e 65 2d 6b 65 | 79 20 67 64 62 73 72 63 |efine-ke|y gdbsrc|
|00001bb0| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 6c 22 20 27 67 |-mode-ma|p "l" 'g|
|00001bc0| 64 62 73 72 63 2d 69 6e | 66 6f 2d 6c 6f 63 61 6c |dbsrc-in|fo-local|
|00001bd0| 73 29 0a 23 40 31 38 20 | 53 68 6f 77 20 62 72 65 |s).#@18 |Show bre|
|00001be0| 61 6b 70 6f 69 6e 74 73 | 1f 0a 28 64 65 66 61 6c |akpoints|..(defal|
|00001bf0| 69 61 73 20 27 67 64 62 | 73 72 63 2d 69 6e 66 6f |ias 'gdb|src-info|
|00001c00| 2d 62 72 65 61 6b 20 23 | 5b 28 61 72 67 29 20 22 |-break #|[(arg) "|
|00001c10| c0 09 ab 89 c2 c3 c4 c5 | 09 21 23 aa 81 c4 21 87 |........|.!#...!.|
|00001c20| 22 20 5b 67 64 62 2d 63 | 61 6c 6c 2d 66 72 6f 6d |" [gdb-c|all-from|
|00001c30| 2d 73 72 63 20 61 72 67 | 20 66 6f 72 6d 61 74 20 |-src arg| format |
|00001c40| 22 25 73 20 25 73 22 20 | 22 69 6e 66 6f 20 62 72 |"%s %s" |"info br|
|00001c50| 65 61 6b 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |eak" pre|fix-nume|
|00001c60| 72 69 63 2d 76 61 6c 75 | 65 5d 20 36 20 28 23 24 |ric-valu|e] 6 (#$|
|00001c70| 20 2e 20 37 31 32 38 29 | 20 22 50 22 5d 29 0a 28 | . 7128)| "P"]).(|
|00001c80| 64 65 66 69 6e 65 2d 6b | 65 79 20 67 64 62 73 72 |define-k|ey gdbsr|
|00001c90| 63 2d 6d 6f 64 65 2d 6d | 61 70 20 22 42 22 20 27 |c-mode-m|ap "B" '|
|00001ca0| 67 64 62 73 72 63 2d 69 | 6e 66 6f 2d 62 72 65 61 |gdbsrc-i|nfo-brea|
|00001cb0| 6b 29 0a 23 40 32 31 20 | 52 65 70 65 61 74 20 6c |k).#@21 |Repeat l|
|00001cc0| 61 73 74 20 63 6f 6d 6d | 61 6e 64 1f 0a 28 64 65 |ast comm|and..(de|
|00001cd0| 66 61 6c 69 61 73 20 27 | 67 64 62 73 72 63 2d 20 |falias '|gdbsrc- |
|00001ce0| 23 5b 28 61 72 67 29 20 | 22 c0 09 ab 89 c2 c3 c4 |#[(arg) |".......|
|00001cf0| c5 09 21 23 aa 81 c4 21 | 87 22 20 5b 67 64 62 2d |..!#...!|." [gdb-|
|00001d00| 63 61 6c 6c 2d 66 72 6f | 6d 2d 73 72 63 20 61 72 |call-fro|m-src ar|
|00001d10| 67 20 66 6f 72 6d 61 74 | 20 22 25 73 20 25 73 22 |g format| "%s %s"|
|00001d20| 20 22 22 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 | "" pref|ix-numer|
|00001d30| 69 63 2d 76 61 6c 75 65 | 5d 20 36 20 28 23 24 20 |ic-value|] 6 (#$ |
|00001d40| 2e 20 37 33 35 32 29 20 | 22 50 22 5d 29 0a 28 64 |. 7352) |"P"]).(d|
|00001d50| 65 66 69 6e 65 2d 6b 65 | 79 20 67 64 62 73 72 63 |efine-ke|y gdbsrc|
|00001d60| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 0d 22 20 27 67 |-mode-ma|p "." 'g|
|00001d70| 64 62 73 72 63 2d 29 0a | 23 40 34 34 20 53 68 6f |dbsrc-).|#@44 Sho|
|00001d80| 77 20 66 72 61 6d 65 20 | 69 66 20 6e 6f 20 61 72 |w frame |if no ar|
|00001d90| 67 2c 20 77 69 74 68 20 | 61 72 67 20 67 6f 20 74 |g, with |arg go t|
|00001da0| 6f 20 66 72 61 6d 65 1f | 0a 28 64 65 66 61 6c 69 |o frame.|.(defali|
|00001db0| 61 73 20 27 67 64 62 73 | 72 63 2d 66 72 61 6d 65 |as 'gdbs|rc-frame|
|00001dc0| 20 23 5b 28 61 72 67 29 | 20 22 c0 09 ab 89 c2 c3 | #[(arg)| "......|
|00001dd0| c4 c5 09 21 23 aa 81 c4 | 21 87 22 20 5b 67 64 62 |...!#...|!." [gdb|
|00001de0| 2d 63 61 6c 6c 2d 66 72 | 6f 6d 2d 73 72 63 20 61 |-call-fr|om-src a|
|00001df0| 72 67 20 66 6f 72 6d 61 | 74 20 22 25 73 20 25 73 |rg forma|t "%s %s|
|00001e00| 22 20 22 66 72 61 6d 65 | 22 20 70 72 65 66 69 78 |" "frame|" prefix|
|00001e10| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 5d 20 |-numeric|-value] |
|00001e20| 36 20 28 23 24 20 2e 20 | 37 35 34 39 29 20 22 50 |6 (#$ . |7549) "P|
|00001e30| 22 5d 29 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |"]).(def|ine-key |
|00001e40| 67 64 62 73 72 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |gdbsrc-m|ode-map |
|00001e50| 22 6d 22 20 27 67 64 62 | 73 72 63 2d 66 72 61 6d |"m" 'gdb|src-fram|
|00001e60| 65 29 0a 23 40 32 32 32 | 20 41 63 74 69 76 61 74 |e).#@222| Activat|
|00001e70| 65 73 20 61 20 67 64 62 | 20 73 65 73 73 69 6f 6e |es a gdb| session|
|00001e80| 20 77 69 74 68 20 67 64 | 62 73 72 63 2d 6d 6f 64 | with gd|bsrc-mod|
|00001e90| 65 20 74 75 72 6e 65 64 | 20 6f 6e 2e 20 20 41 20 |e turned| on.  A |
|00001ea0| 6e 75 6d 65 72 69 63 20 | 70 72 65 66 69 78 0a 61 |numeric |prefix.a|
|00001eb0| 72 67 75 6d 65 6e 74 20 | 63 61 6e 20 62 65 20 75 |rgument |can be u|
|00001ec0| 73 65 64 20 74 6f 20 73 | 70 65 63 69 66 79 20 61 |sed to s|pecify a|
|00001ed0| 20 72 75 6e 6e 69 6e 67 | 20 70 72 6f 63 65 73 73 | running| process|
|00001ee0| 20 74 6f 20 61 74 74 61 | 63 68 2c 20 61 6e 64 20 | to atta|ch, and |
|00001ef0| 61 20 6e 6f 6e 2d 6e 75 | 6d 65 72 69 63 0a 70 72 |a non-nu|meric.pr|
|00001f00| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 20 77 69 |efix arg|ument wi|
|00001f10| 6c 6c 20 63 61 75 73 65 | 20 79 6f 75 20 74 6f 20 |ll cause| you to |
|00001f20| 62 65 20 70 72 6f 6d 70 | 74 65 64 20 66 6f 72 20 |be promp|ted for |
|00001f30| 61 20 63 6f 72 65 20 66 | 69 6c 65 20 74 6f 20 64 |a core f|ile to d|
|00001f40| 65 62 75 67 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ebug...(|defalias|
|00001f50| 20 27 67 64 62 73 72 63 | 20 23 5b 28 70 61 74 68 | 'gdbsrc| #[(path|
|00001f60| 20 26 6f 70 74 69 6f 6e | 61 6c 20 63 6f 72 65 2d | &option|al core-|
|00001f70| 6f 72 2d 70 69 64 29 20 | 22 c0 20 88 c1 20 88 c2 |or-pid) |". .. ..|
|00001f80| c3 21 88 c4 0d 0e 06 5c | 22 88 c7 c8 c9 5c 22 88 |.!.....\|"....\".|
|00001f90| ca 16 0b cc cd 21 88 ce | cd cf d0 d1 24 87 22 20 |.....!..|....$." |
|00001fa0| 5b 64 65 6c 65 74 65 2d | 6f 74 68 65 72 2d 77 69 |[delete-|other-wi|
|00001fb0| 6e 64 6f 77 73 20 73 70 | 6c 69 74 2d 77 69 6e 64 |ndows sp|lit-wind|
|00001fc0| 6f 77 2d 76 65 72 74 69 | 63 61 6c 6c 79 20 6f 74 |ow-verti|cally ot|
|00001fd0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 30 20 67 64 62 |her-wind|ow 0 gdb|
|00001fe0| 20 70 61 74 68 20 63 6f | 72 65 2d 6f 72 2d 70 69 | path co|re-or-pi|
|00001ff0| 64 20 6c 6f 63 61 6c 2d | 73 65 74 2d 6b 65 79 20 |d local-|set-key |
|00002000| 62 75 74 74 6f 6e 32 20 | 67 64 62 73 72 63 2d 73 |button2 |gdbsrc-s|
|00002010| 65 6c 65 63 74 2d 6f 72 | 2d 79 61 6e 6b 20 67 64 |elect-or|-yank gd|
|00002020| 62 73 72 63 2d 6d 6f 64 | 65 2d 6d 6f 74 69 6f 6e |bsrc-mod|e-motion|
|00002030| 20 6d 6f 64 65 2d 6d 6f | 74 69 6f 6e 2d 68 6f 6f | mode-mo|tion-hoo|
|00002040| 6b 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 68 6f 6f |k make-l|ocal-hoo|
|00002050| 6b 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 2d 68 6f |k kill-b|uffer-ho|
|00002060| 6f 6b 20 61 64 64 2d 68 | 6f 6f 6b 20 67 64 62 73 |ok add-h|ook gdbs|
|00002070| 72 63 2d 72 65 73 65 74 | 20 6e 69 6c 20 74 5d 20 |rc-reset| nil t] |
|00002080| 35 20 28 23 24 20 2e 20 | 37 37 38 35 29 20 28 62 |5 (#$ . |7785) (b|
|00002090| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 89 c3 24 |yte-code| ".....$|
|000020a0| 1c 0d a7 ab 87 0c c6 0d | 21 44 aa 8f 0d ab 8a 0c |........|!D......|
|000020b0| c0 c7 c2 89 c3 24 44 aa | 82 0c 43 29 87 22 20 5b |.....$D.|..C)." [|
|000020c0| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 22 |read-fil|e-name "|
|000020d0| 50 72 6f 67 72 61 6d 20 | 74 6f 20 64 65 62 75 67 |Program |to debug|
|000020e0| 3a 20 22 20 6e 69 6c 20 | 74 20 66 69 6c 65 20 63 |: " nil |t file c|
|000020f0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|00002100| 67 20 69 6e 74 2d 74 6f | 2d 73 74 72 69 6e 67 20 |g int-to|-string |
|00002110| 22 43 6f 72 65 20 66 69 | 6c 65 3a 20 22 5d 20 36 |"Core fi|le: "] 6|
|00002120| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |)]).(def|alias 'g|
|00002130| 64 62 73 72 63 2d 67 6c | 6f 62 61 6c 2d 6d 6f 64 |dbsrc-gl|obal-mod|
|00002140| 65 20 23 5b 6e 69 6c 20 | 22 08 ac 9a 09 c2 61 ab |e #[nil |".....a.|
|00002150| 91 70 89 10 ab 8c c3 c4 | 21 88 c5 c4 c6 c7 c8 24 |.p......|!......$|
|00002160| ac 84 c9 ca 21 88 c7 16 | 0b c8 16 0c c7 16 0d c7 |....!...|........|
|00002170| 16 0e cf d0 21 87 22 20 | 5b 63 75 72 72 65 6e 74 |....!." |[current|
|00002180| 2d 67 64 62 2d 62 75 66 | 66 65 72 20 6d 61 6a 6f |-gdb-buf|fer majo|
|00002190| 72 2d 6d 6f 64 65 20 67 | 64 62 2d 6d 6f 64 65 20 |r-mode g|db-mode |
|000021a0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 68 6f 6f 6b 20 |make-loc|al-hook |
|000021b0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 2d 68 6f 6f 6b |kill-buf|fer-hook|
|000021c0| 20 61 64 64 2d 68 6f 6f | 6b 20 67 64 62 73 72 63 | add-hoo|k gdbsrc|
|000021d0| 2d 72 65 73 65 74 20 6e | 69 6c 20 74 20 65 72 72 |-reset n|il t err|
|000021e0| 6f 72 20 22 43 61 6e 6e | 6f 74 20 64 65 74 65 72 |or "Cann|ot deter|
|000021f0| 6d 69 6e 65 20 63 75 72 | 72 65 6e 74 2d 67 64 62 |mine cur|rent-gdb|
|00002200| 2d 62 75 66 66 65 72 22 | 20 67 64 62 73 72 63 2d |-buffer"| gdbsrc-|
|00002210| 67 6c 6f 62 61 6c 2d 6d | 6f 64 65 20 67 64 62 73 |global-m|ode gdbs|
|00002220| 72 63 2d 61 63 74 69 76 | 65 2d 70 20 67 64 62 73 |rc-activ|e-p gdbs|
|00002230| 72 63 2d 63 61 6c 6c 2d | 70 20 67 64 62 73 72 63 |rc-call-|p gdbsrc|
|00002240| 2d 6d 6f 64 65 20 6d 65 | 73 73 61 67 65 20 22 47 |-mode me|ssage "G|
|00002250| 62 64 20 73 6f 75 72 63 | 65 20 6d 6f 64 65 20 61 |bd sourc|e mode a|
|00002260| 63 74 69 76 65 22 5d 20 | 35 5d 29 0a 28 61 64 64 |ctive"] |5]).(add|
|00002270| 2d 68 6f 6f 6b 20 27 67 | 64 62 2d 6d 6f 64 65 2d |-hook 'g|db-mode-|
|00002280| 68 6f 6f 6b 20 27 67 64 | 62 73 72 63 2d 67 6c 6f |hook 'gd|bsrc-glo|
|00002290| 62 61 6c 2d 6d 6f 64 65 | 29 0a 23 40 33 37 20 54 |bal-mode|).#@37 T|
|000022a0| 68 65 20 67 64 62 20 62 | 75 66 66 65 72 20 74 6f |he gdb b|uffer to|
|000022b0| 20 73 65 6e 64 20 63 6f | 6d 6d 61 6e 64 73 20 74 | send co|mmands t|
|000022c0| 6f 2e 1f 0a 28 64 65 66 | 76 61 72 20 67 64 62 73 |o...(def|var gdbs|
|000022d0| 72 63 2d 61 73 73 6f 63 | 69 61 74 65 64 2d 62 75 |rc-assoc|iated-bu|
|000022e0| 66 66 65 72 20 6e 69 6c | 20 28 23 24 20 2e 20 38 |ffer nil| (#$ . 8|
|000022f0| 38 36 33 29 29 0a 23 40 | 35 32 20 72 65 61 64 2d |863)).#@|52 read-|
|00002300| 6f 6e 6c 79 20 73 74 61 | 74 75 73 20 6f 66 20 62 |only sta|tus of b|
|00002310| 75 66 66 65 72 20 77 68 | 65 6e 20 6e 6f 74 20 69 |uffer wh|en not i|
|00002320| 6e 20 67 64 62 73 72 63 | 2d 6d 6f 64 65 1f 0a 28 |n gdbsrc|-mode..(|
|00002330| 64 65 66 76 61 72 20 67 | 64 62 73 72 63 2d 69 6e |defvar g|dbsrc-in|
|00002340| 69 74 69 61 6c 2d 72 65 | 61 64 6f 6e 6c 79 20 27 |itial-re|adonly '|
|00002350| 75 6e 64 65 66 69 6e 65 | 64 20 28 23 24 20 2e 20 |undefine|d (#$ . |
|00002360| 38 39 35 35 29 29 0a 23 | 40 32 36 20 73 61 76 65 |8955)).#|@26 save|
|00002370| 64 20 74 6f 6f 6c 62 61 | 72 20 66 6f 72 20 62 75 |d toolba|r for bu|
|00002380| 66 66 65 72 1f 0a 28 64 | 65 66 76 61 72 20 67 64 |ffer..(d|efvar gd|
|00002390| 62 73 72 63 2d 6f 6c 64 | 2d 74 6f 6f 6c 62 61 72 |bsrc-old|-toolbar|
|000023a0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 39 30 36 38 29 | nil (#$| . 9068)|
|000023b0| 29 0a 23 40 32 32 34 20 | 4d 69 6e 6f 72 20 6d 6f |).#@224 |Minor mo|
|000023c0| 64 65 20 66 6f 72 20 69 | 6e 74 65 72 61 63 74 69 |de for i|nteracti|
|000023d0| 6e 67 20 77 69 74 68 20 | 67 64 62 20 66 72 6f 6d |ng with |gdb from|
|000023e0| 20 61 20 63 20 73 6f 75 | 72 63 65 20 66 69 6c 65 | a c sou|rce file|
|000023f0| 2e 0a 57 69 74 68 20 61 | 72 67 2c 20 74 75 72 6e |..With a|rg, turn|
|00002400| 20 67 64 62 73 72 63 2d | 6d 6f 64 65 20 6f 6e 20 | gdbsrc-|mode on |
|00002410| 69 66 66 20 61 72 67 20 | 69 73 20 70 6f 73 69 74 |iff arg |is posit|
|00002420| 69 76 65 2e 20 20 49 6e | 20 67 64 62 73 72 63 2d |ive.  In| gdbsrc-|
|00002430| 6d 6f 64 65 2c 0a 79 6f | 75 20 6d 61 79 20 73 65 |mode,.yo|u may se|
|00002440| 6e 64 20 61 6e 20 61 73 | 73 6f 63 69 61 74 65 64 |nd an as|sociated|
|00002450| 20 67 64 62 20 62 75 66 | 66 65 72 20 63 6f 6d 6d | gdb buf|fer comm|
|00002460| 61 6e 64 73 20 66 72 6f | 6d 20 74 68 65 20 63 75 |ands fro|m the cu|
|00002470| 72 72 65 6e 74 20 62 75 | 66 66 65 72 0a 63 6f 6e |rrent bu|ffer.con|
|00002480| 74 61 69 6e 69 6e 67 20 | 63 20 73 6f 75 72 63 65 |taining |c source|
|00002490| 20 63 6f 64 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | code...|(defalia|
|000024a0| 73 20 27 67 64 62 73 72 | 63 2d 6d 6f 64 65 20 23 |s 'gdbsr|c-mode #|
|000024b0| 5b 28 61 72 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |[(arg &o|ptional |
|000024c0| 71 75 69 65 74 29 20 22 | 08 ac 84 09 3f aa 85 c2 |quiet) "|....?...|
|000024d0| 08 21 c3 56 89 11 ab be | c4 c5 70 5c 22 ac 9d c6 |.!.V....|..p\"...|
|000024e0| c5 21 0e 07 4c 88 c6 c8 | 21 0e 09 4c 88 ca cb 21 |.!..L...|!..L...!|
|000024f0| ab 8a c6 cc 21 cd 0e 0e | 70 5c 22 4c 88 ca cb 21 |....!...|p\"L...!|
|00002500| ab 89 cf 0e 0e 70 0e 10 | 42 5c 22 88 d1 16 07 0e |.....p..|B\".....|
|00002510| 12 ac bd d3 d4 21 88 aa | b7 c4 c5 70 5c 22 ab a9 |.....!..|...p\"..|
|00002520| ca cb 21 ab 95 0e 0c ab | 8b cf 0e 0e 70 0e 0c 42 |..!.....|....p..B|
|00002530| 5c 22 88 aa 86 d5 0e 0e | 70 5c 22 88 d6 cc 21 88 |\"......|p\"...!.|
|00002540| 0d 16 07 d6 c5 21 88 d6 | c8 21 88 0e 12 ac 84 d3 |.....!..|.!......|
|00002550| d7 21 88 d8 d1 21 87 22 | 20 5b 61 72 67 20 67 64 |.!...!."| [arg gd|
|00002560| 62 73 72 63 2d 6d 6f 64 | 65 20 70 72 65 66 69 78 |bsrc-mod|e prefix|
|00002570| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 30 |-numeric|-value 0|
|00002580| 20 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 2d | local-v|ariable-|
|00002590| 70 20 67 64 62 73 72 63 | 2d 69 6e 69 74 69 61 6c |p gdbsrc|-initial|
|000025a0| 2d 72 65 61 64 6f 6e 6c | 79 20 6d 61 6b 65 2d 6c |-readonl|y make-l|
|000025b0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 62 75 |ocal-var|iable bu|
|000025c0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 67 |ffer-rea|d-only g|
|000025d0| 64 62 73 72 63 2d 61 73 | 73 6f 63 69 61 74 65 64 |dbsrc-as|sociated|
|000025e0| 2d 62 75 66 66 65 72 20 | 63 75 72 72 65 6e 74 2d |-buffer |current-|
|000025f0| 67 64 62 2d 62 75 66 66 | 65 72 20 66 65 61 74 75 |gdb-buff|er featu|
|00002600| 72 65 70 20 74 6f 6f 6c | 62 61 72 20 67 64 62 73 |rep tool|bar gdbs|
|00002610| 72 63 2d 6f 6c 64 2d 74 | 6f 6f 6c 62 61 72 20 73 |rc-old-t|oolbar s|
|00002620| 70 65 63 69 66 69 65 72 | 2d 73 70 65 63 73 20 64 |pecifier|-specs d|
|00002630| 65 66 61 75 6c 74 2d 74 | 6f 6f 6c 62 61 72 20 73 |efault-t|oolbar s|
|00002640| 65 74 2d 73 70 65 63 69 | 66 69 65 72 20 67 64 62 |et-speci|fier gdb|
|00002650| 73 72 63 2d 74 6f 6f 6c | 62 61 72 20 74 20 71 75 |src-tool|bar t qu|
|00002660| 69 65 74 20 6d 65 73 73 | 61 67 65 20 22 45 6e 74 |iet mess|age "Ent|
|00002670| 65 72 69 6e 67 20 67 64 | 62 73 72 63 2d 6d 6f 64 |ering gd|bsrc-mod|
|00002680| 65 2e 2e 2e 22 20 72 65 | 6d 6f 76 65 2d 73 70 65 |e..." re|move-spe|
|00002690| 63 69 66 69 65 72 20 6b | 69 6c 6c 2d 6c 6f 63 61 |cifier k|ill-loca|
|000026a0| 6c 2d 76 61 72 69 61 62 | 6c 65 20 22 45 78 69 74 |l-variab|le "Exit|
|000026b0| 69 6e 67 20 67 64 62 73 | 72 63 2d 6d 6f 64 65 2e |ing gdbs|rc-mode.|
|000026c0| 2e 2e 22 20 72 65 64 72 | 61 77 2d 6d 6f 64 65 6c |.." redr|aw-model|
|000026d0| 69 6e 65 5d 20 35 20 28 | 23 24 20 2e 20 39 31 34 |ine] 5 (|#$ . 914|
|000026e0| 34 29 20 22 50 22 5d 29 | 0a 23 40 37 31 20 53 65 |4) "P"])|.#@71 Se|
|000026f0| 6e 64 20 61 73 73 6f 63 | 69 61 74 65 64 20 67 64 |nd assoc|iated gd|
|00002700| 62 20 70 72 6f 63 65 73 | 73 20 43 4f 4d 4d 41 4e |b proces|s COMMAN|
|00002710| 44 20 64 69 73 70 6c 61 | 79 69 6e 67 20 73 6f 75 |D displa|ying sou|
|00002720| 72 63 65 20 69 6e 20 74 | 68 69 73 20 77 69 6e 64 |rce in t|his wind|
|00002730| 6f 77 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ow...(de|falias '|
|00002740| 67 64 62 2d 63 61 6c 6c | 2d 66 72 6f 6d 2d 73 72 |gdb-call|-from-sr|
|00002750| 63 20 23 5b 28 63 6f 6d | 6d 61 6e 64 29 20 22 c0 |c #[(com|mand) ".|
|00002760| 11 c2 20 0b ae 81 0c 1d | 1e 06 c7 0d 21 ac 84 c8 |.. .....|....!...|
|00002770| c9 21 88 ca 0d 21 88 64 | 62 88 cb 79 88 cc 0e 0d |.!...!.d|b..y....|
|00002780| 8a ce 7f 88 60 29 c0 23 | 88 60 64 7c 88 0e 0f 63 |....`).#|.`d|...c|
|00002790| 88 d0 20 88 d1 0e 06 21 | 2a 87 22 20 5b 74 20 67 |.. ....!|*." [t g|
|000027a0| 64 62 73 72 63 2d 63 61 | 6c 6c 2d 70 20 73 65 6c |dbsrc-ca|ll-p sel|
|000027b0| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 67 64 62 |ected-wi|ndow gdb|
|000027c0| 73 72 63 2d 61 73 73 6f | 63 69 61 74 65 64 2d 62 |src-asso|ciated-b|
|000027d0| 75 66 66 65 72 20 63 75 | 72 72 65 6e 74 2d 67 64 |uffer cu|rrent-gd|
|000027e0| 62 2d 62 75 66 66 65 72 | 20 62 75 66 20 73 72 63 |b-buffer| buf src|
|000027f0| 2d 77 69 6e 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |-win buf|fer-name|
|00002800| 20 65 72 72 6f 72 20 22 | 47 44 42 20 62 75 66 66 | error "|GDB buff|
|00002810| 65 72 20 64 65 6c 65 74 | 65 64 22 20 70 6f 70 2d |er delet|ed" pop-|
|00002820| 74 6f 2d 62 75 66 66 65 | 72 20 30 20 72 65 2d 73 |to-buffe|r 0 re-s|
|00002830| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 67 64 |earch-fo|rward gd|
|00002840| 62 2d 70 72 6f 6d 70 74 | 2d 70 61 74 74 65 72 6e |b-prompt|-pattern|
|00002850| 20 6e 69 6c 20 63 6f 6d | 6d 61 6e 64 20 63 6f 6d | nil com|mand com|
|00002860| 69 6e 74 2d 73 65 6e 64 | 2d 69 6e 70 75 74 20 73 |int-send|-input s|
|00002870| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 5d 20 34 20 |elect-wi|ndow] 4 |
|00002880| 28 23 24 20 2e 20 39 39 | 36 36 29 5d 29 0a 28 62 |(#$ . 99|66)]).(b|
|00002890| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ac 84 c1 |yte-code| "..!...|
|000028a0| c2 4d 88 c0 87 22 20 5b | 66 62 6f 75 6e 64 70 20 |.M..." [|fboundp |
|000028b0| 65 76 65 6e 74 2d 62 75 | 66 66 65 72 20 23 5b 28 |event-bu|ffer #[(|
|000028c0| 65 76 65 6e 74 29 20 22 | c0 09 21 89 1a ad 83 c3 |event) "|..!.....|
|000028d0| 5c 6e 21 29 87 22 20 5b | 65 76 65 6e 74 2d 77 69 |\n!)." [|event-wi|
|000028e0| 6e 64 6f 77 20 65 76 65 | 6e 74 20 77 69 6e 20 77 |ndow eve|nt win w|
|000028f0| 69 6e 64 6f 77 2d 62 75 | 66 66 65 72 5d 20 33 20 |indow-bu|ffer] 3 |
|00002900| 22 52 65 74 75 72 6e 20 | 62 75 66 66 65 72 20 61 |"Return |buffer a|
|00002910| 73 73 6f 63 61 69 74 65 | 64 20 77 69 74 68 20 45 |ssocaite|d with E|
|00002920| 56 45 4e 54 2c 20 6f 72 | 20 6e 69 6c 2e 22 5d 5d |VENT, or| nil."]]|
|00002930| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 | 2).(def|alias 's|
|00002940| 65 74 2d 67 64 62 73 72 | 63 2d 6d 6f 64 65 2d 6d |et-gdbsr|c-mode-m|
|00002950| 6f 74 69 6f 6e 2d 65 78 | 74 65 6e 74 20 23 5b 28 |otion-ex|tent #[(|
|00002960| 73 74 20 65 6e 20 61 63 | 74 69 6f 6e 29 20 22 c0 |st en ac|tion) ".|
|00002970| 09 5c 6e 5c 22 1b c4 0b | c5 5c 22 88 c6 0b c7 c8 |.\n\"...|.\".....|
|00002980| 23 88 c6 0b c9 0e 09 23 | 88 0b 89 16 5c 6e 29 87 |#......#|....\n).|
|00002990| 22 20 5b 6d 61 6b 65 2d | 65 78 74 65 6e 74 20 73 |" [make-|extent s|
|000029a0| 74 20 65 6e 20 65 78 20 | 73 65 74 2d 65 78 74 65 |t en ex |set-exte|
|000029b0| 6e 74 2d 66 61 63 65 20 | 68 69 67 68 6c 69 67 68 |nt-face |highligh|
|000029c0| 74 20 73 65 74 2d 65 78 | 74 65 6e 74 2d 70 72 6f |t set-ex|tent-pro|
|000029d0| 70 65 72 74 79 20 67 64 | 62 73 72 63 20 74 20 61 |perty gd|bsrc t a|
|000029e0| 63 74 69 6f 6e 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |ction mo|de-motio|
|000029f0| 6e 2d 65 78 74 65 6e 74 | 5d 20 34 5d 29 0a 28 64 |n-extent|] 4]).(d|
|00002a00| 65 66 61 6c 69 61 73 20 | 27 6e 75 6b 65 2d 6d 6f |efalias |'nuke-mo|
|00002a10| 64 65 2d 6d 6f 74 69 6f | 6e 2d 65 78 74 65 6e 74 |de-motio|n-extent|
|00002a20| 20 23 5b 6e 69 6c 20 22 | 08 ad 87 c1 08 21 88 c2 | #[nil "|.....!..|
|00002a30| 89 10 87 22 20 5b 6d 6f | 64 65 2d 6d 6f 74 69 6f |..." [mo|de-motio|
|00002a40| 6e 2d 65 78 74 65 6e 74 | 20 64 65 6c 65 74 65 2d |n-extent| delete-|
|00002a50| 65 78 74 65 6e 74 20 6e | 69 6c 5d 20 32 5d 29 0a |extent n|il] 2]).|
|00002a60| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6f 6f 6b 69 |(defalia|s 'looki|
|00002a70| 6e 67 2d 61 74 2d 61 6e | 79 20 23 5b 28 72 65 67 |ng-at-an|y #[(reg|
|00002a80| 65 78 2d 6c 69 73 74 29 | 20 22 c0 c1 8d 87 22 20 |ex-list)| "...." |
|00002a90| 5b 66 6f 75 6e 64 20 28 | 62 79 74 65 2d 63 6f 64 |[found (|byte-cod|
|00002aa0| 65 20 22 08 ad 92 c1 08 | 40 21 ab 85 c2 c3 c4 5c |e ".....|@!.....\|
|00002ab0| 22 88 08 41 89 10 ac 6f | c5 87 22 20 5b 72 65 67 |"..A...o|.." [reg|
|00002ac0| 65 78 2d 6c 69 73 74 20 | 6c 6f 6f 6b 69 6e 67 2d |ex-list |looking-|
|00002ad0| 61 74 20 74 68 72 6f 77 | 20 66 6f 75 6e 64 20 74 |at throw| found t|
|00002ae0| 20 6e 69 6c 5d 20 34 29 | 5d 20 32 5d 29 0a 23 40 | nil] 4)|] 2]).#@|
|00002af0| 37 33 20 6c 69 73 74 20 | 6f 66 20 70 61 74 74 65 |73 list |of patte|
|00002b00| 72 6e 73 20 74 6f 20 6d | 61 74 63 68 20 67 64 62 |rns to m|atch gdb|
|00002b10| 27 73 20 76 61 72 69 6f | 75 73 20 77 61 79 73 20 |'s vario|us ways |
|00002b20| 6f 66 20 64 69 73 70 6c | 61 79 69 6e 67 20 61 20 |of displ|aying a |
|00002b30| 62 72 65 61 6b 70 6f 69 | 6e 74 1f 0a 28 64 65 66 |breakpoi|nt..(def|
|00002b40| 63 6f 6e 73 74 20 67 64 | 62 2d 62 72 65 61 6b 70 |const gd|b-breakp|
|00002b50| 6f 69 6e 74 2d 70 61 74 | 74 65 72 6e 73 20 27 28 |oint-pat|terns '(|
|00002b60| 22 5e 5b 42 57 5d 5b 72 | 61 5d 5b 65 74 5d 5b 61 |"^[BW][r|a][et][a|
|00002b70| 63 5d 5b 6b 68 5d 70 6f | 69 6e 74 20 5b 30 2d 39 |c][kh]po|int [0-9|
|00002b80| 5d 2b 2c 20 2e 2a 5c 5c | 28 5c 6e 5c 5c 73 20 2e |]+, .*\\|(\n\\s .|
|00002b90| 2a 5c 5c 29 2a 22 20 22 | 5e 5b 42 57 5d 5b 72 61 |*\\)*" "|^[BW][ra|
|00002ba0| 5d 5b 65 74 5d 5b 61 63 | 5d 5b 6b 68 5d 70 6f 69 |][et][ac|][kh]poi|
|00002bb0| 6e 74 20 5b 30 2d 39 5d | 2b 20 61 74 20 2e 2a 3a |nt [0-9]|+ at .*:|
|00002bc0| 20 66 69 6c 65 20 5c 5c | 28 5b 5e 20 2c 5c 6e 5d | file \\|([^ ,\n]|
|00002bd0| 2b 5c 5c 29 2c 20 6c 69 | 6e 65 20 5c 5c 28 5b 30 |+\\), li|ne \\([0|
|00002be0| 2d 39 5d 2b 5c 5c 29 2e | 22 20 22 5e 5b 30 2d 39 |-9]+\\).|" "^[0-9|
|00002bf0| 5d 2b 5c 5c 73 20 2b 5b | 62 77 5d 5b 72 61 5d 5b |]+\\s +[|bw][ra][|
|00002c00| 65 74 5d 5b 61 63 5d 5b | 6b 68 5d 70 6f 69 6e 74 |et][ac][|kh]point|
|00002c10| 2e 2a 20 69 6e 20 2e 2a | 5c 5c 28 5c 6e 5c 5c 73 |.* in .*|\\(\n\\s|
|00002c20| 20 2b 5c 5c 29 3f 61 74 | 20 5b 5e 20 3a 5c 6e 5d | +\\)?at| [^ :\n]|
|00002c30| 2b 3a 5b 30 2d 39 5d 2b | 5c 5c 28 5c 6e 5c 5c 73 |+:[0-9]+|\\(\n\\s|
|00002c40| 20 2e 2a 5c 5c 29 2a 22 | 29 20 28 23 24 20 2e 20 | .*\\)*"|) (#$ . |
|00002c50| 31 30 39 39 35 29 29 0a | 28 64 65 66 61 6c 69 61 |10995)).|(defalia|
|00002c60| 73 20 27 67 64 62 73 72 | 63 2d 6d 61 6b 65 2d 62 |s 'gdbsr|c-make-b|
|00002c70| 72 65 61 6b 70 6f 69 6e | 74 2d 61 63 74 69 6f 6e |reakpoin|t-action|
|00002c80| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 c0 c1 5c | #[(stri|ng) "..\|
|00002c90| 6e 5c 22 ac 86 c0 c3 5c | 6e 5c 22 ad 8c c4 c5 c6 |n\"....\|n\".....|
|00002ca0| 5c 6e 5c 22 c7 c5 c8 5c | 6e 5c 22 21 45 87 22 20 |\n\"...\|n\"!E." |
|00002cb0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 66 |[string-|match "f|
|00002cc0| 69 6c 65 20 5c 5c 28 5b | 5e 20 2c 5c 6e 5d 2b 5c |ile \\([|^ ,\n]+\|
|00002cd0| 5c 29 2c 20 6c 69 6e 65 | 20 5c 5c 28 5b 30 2d 39 |\), line| \\([0-9|
|00002ce0| 5d 2b 5c 5c 29 22 20 73 | 74 72 69 6e 67 20 22 61 |]+\\)" s|tring "a|
|00002cf0| 74 20 5c 5c 28 5b 5e 20 | 3a 5c 6e 5d 2b 5c 5c 29 |t \\([^ |:\n]+\\)|
|00002d00| 3a 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 22 20 67 |:\\([0-9|]+\\)" g|
|00002d10| 64 62 73 72 63 2d 64 69 | 73 70 6c 61 79 20 6d 61 |dbsrc-di|splay ma|
|00002d20| 74 63 68 2d 73 74 72 69 | 6e 67 20 31 20 73 74 72 |tch-stri|ng 1 str|
|00002d30| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 32 5d 20 36 5d |ing-to-i|nt 2] 6]|
|00002d40| 29 0a 23 40 39 38 20 6d | 61 74 63 68 65 73 20 74 |).#@98 m|atches t|
|00002d50| 68 65 20 66 69 72 73 74 | 20 6c 69 6e 65 20 6f 66 |he first| line of|
|00002d60| 20 61 20 67 64 62 20 73 | 74 61 63 6b 20 66 72 61 | a gdb s|tack fra|
|00002d70| 6d 65 20 61 6e 64 20 61 | 6c 6c 20 63 6f 6e 74 69 |me and a|ll conti|
|00002d80| 6e 75 61 74 69 6f 6e 20 | 6c 69 6e 65 73 2e 0a 73 |nuation |lines..s|
|00002d90| 75 62 65 78 20 31 20 69 | 73 20 66 72 61 6d 65 20 |ubex 1 i|s frame |
|00002da0| 6e 75 6d 62 65 72 2e 1f | 0a 28 64 65 66 63 6f 6e |number..|.(defcon|
|00002db0| 73 74 20 67 64 62 2d 73 | 74 61 63 6b 2d 66 72 61 |st gdb-s|tack-fra|
|00002dc0| 6d 65 2d 70 61 74 74 65 | 72 6e 20 22 5e 23 5c 5c |me-patte|rn "^#\\|
|00002dd0| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5c 5c 73 20 2b 5c |([0-9]+\|\)\\s +\|
|00002de0| 5c 28 30 78 5b 30 2d 39 | 61 2d 66 5d 2b 20 69 6e |\(0x[0-9|a-f]+ in|
|00002df0| 20 2e 2a 5c 5c 7c 2e 2a | 5c 5c 73 77 2b 2e 2a 20 | .*\\|.*|\\sw+.* |
|00002e00| 28 2e 2a 29 20 61 74 20 | 2e 2a 5c 5c 29 5c 5c 28 |(.*) at |.*\\)\\(|
|00002e10| 5c 6e 5c 5c 73 20 2e 2a | 5c 5c 29 2a 22 20 28 23 |\n\\s .*|\\)*" (#|
|00002e20| 24 20 2e 20 31 31 35 39 | 31 29 29 0a 28 64 65 66 |$ . 1159|1)).(def|
|00002e30| 61 6c 69 61 73 20 27 67 | 64 62 73 72 63 2d 6d 6f |alias 'g|dbsrc-mo|
|00002e40| 64 65 2d 6d 6f 74 69 6f | 6e 20 23 5b 28 65 65 29 |de-motio|n #[(ee)|
|00002e50| 20 22 8a c0 09 21 71 88 | 8a c2 09 21 ac 84 c3 20 | "...!q.|...!... |
|00002e60| aa c7 c2 09 21 62 88 c4 | 79 88 6f ac 8b 67 7a c5 |....!b..|y.o..gz.|
|00002e70| 61 ab 85 c6 79 88 aa 72 | c7 60 70 c8 23 3f ad a9 |a...y..r|.`p.#?..|
|00002e80| c3 20 88 c9 0e 5c 6e 21 | ab 8d cb c4 94 c4 95 cc |. ...\n!|........|
|00002e90| cd c4 21 21 23 aa 93 ce | 0e 0f 21 ad 8d cb c4 94 |..!!#...|..!.....|
|00002ea0| c4 95 d0 d1 cd d2 21 21 | 44 23 2a 87 22 20 5b 65 |......!!|D#*." [e|
|00002eb0| 76 65 6e 74 2d 62 75 66 | 66 65 72 20 65 65 20 65 |vent-buf|fer ee e|
|00002ec0| 76 65 6e 74 2d 70 6f 69 | 6e 74 20 6e 75 6b 65 2d |vent-poi|nt nuke-|
|00002ed0| 6d 6f 64 65 2d 6d 6f 74 | 69 6f 6e 2d 65 78 74 65 |mode-mot|ion-exte|
|00002ee0| 6e 74 20 30 20 3f 5c 20 | 20 2d 31 20 65 78 74 65 |nt 0 ?\ | -1 exte|
|00002ef0| 6e 74 2d 61 74 20 67 64 | 62 73 72 63 20 6c 6f 6f |nt-at gd|bsrc loo|
|00002f00| 6b 69 6e 67 2d 61 74 2d | 61 6e 79 20 67 64 62 2d |king-at-|any gdb-|
|00002f10| 62 72 65 61 6b 70 6f 69 | 6e 74 2d 70 61 74 74 65 |breakpoi|nt-patte|
|00002f20| 72 6e 73 20 73 65 74 2d | 67 64 62 73 72 63 2d 6d |rns set-|gdbsrc-m|
|00002f30| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 2d 65 78 74 65 6e |ode-moti|on-exten|
|00002f40| 74 20 67 64 62 73 72 63 | 2d 6d 61 6b 65 2d 62 72 |t gdbsrc|-make-br|
|00002f50| 65 61 6b 70 6f 69 6e 74 | 2d 61 63 74 69 6f 6e 20 |eakpoint|-action |
|00002f60| 6d 61 74 63 68 2d 73 74 | 72 69 6e 67 20 6c 6f 6f |match-st|ring loo|
|00002f70| 6b 69 6e 67 2d 61 74 20 | 67 64 62 2d 73 74 61 63 |king-at |gdb-stac|
|00002f80| 6b 2d 66 72 61 6d 65 2d | 70 61 74 74 65 72 6e 20 |k-frame-|pattern |
|00002f90| 67 64 62 73 72 63 2d 66 | 72 61 6d 65 20 73 74 72 |gdbsrc-f|rame str|
|00002fa0| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 31 5d 20 37 5d |ing-to-i|nt 1] 7]|
|00002fb0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 64 62 |).(defal|ias 'gdb|
|00002fc0| 73 72 63 2d 64 69 73 70 | 6c 61 79 20 23 5b 28 66 |src-disp|lay #[(f|
|00002fd0| 69 6c 65 20 6c 69 6e 65 | 29 20 22 c0 c1 c2 0b 21 |ile line|) "....!|
|00002fe0| 21 21 88 c4 0d 21 87 22 | 20 5b 73 65 6c 65 63 74 |!!...!."| [select|
|00002ff0| 2d 77 69 6e 64 6f 77 20 | 64 69 73 70 6c 61 79 2d |-window |display-|
|00003000| 62 75 66 66 65 72 20 66 | 69 6e 64 2d 66 69 6c 65 |buffer f|ind-file|
|00003010| 2d 6e 6f 73 65 6c 65 63 | 74 20 66 69 6c 65 20 67 |-noselec|t file g|
|00003020| 6f 74 6f 2d 6c 69 6e 65 | 20 6c 69 6e 65 5d 20 34 |oto-line| line] 4|
|00003030| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6c |]).(defa|lias 'cl|
|00003040| 69 63 6b 2d 69 6e 73 69 | 64 65 2d 73 65 6c 65 63 |ick-insi|de-selec|
|00003050| 74 69 6f 6e 2d 70 20 23 | 5b 28 63 6c 69 63 6b 29 |tion-p #|[(click)|
|00003060| 20 22 c0 09 5c 6e 5c 22 | ae 84 c0 09 0b 5c 22 87 | "..\n\"|.....\".|
|00003070| 22 20 5b 63 6c 69 63 6b | 2d 69 6e 73 69 64 65 2d |" [click|-inside-|
|00003080| 65 78 74 65 6e 74 2d 70 | 20 63 6c 69 63 6b 20 70 |extent-p| click p|
|00003090| 72 69 6d 61 72 79 2d 73 | 65 6c 65 63 74 69 6f 6e |rimary-s|election|
|000030a0| 2d 65 78 74 65 6e 74 20 | 7a 6d 61 63 73 2d 72 65 |-extent |zmacs-re|
|000030b0| 67 69 6f 6e 2d 65 78 74 | 65 6e 74 5d 20 33 5d 29 |gion-ext|ent] 3])|
|000030c0| 0a 23 40 31 30 36 20 52 | 65 74 75 72 6e 73 20 6e |.#@106 R|eturns n|
|000030d0| 6f 6e 2d 6e 69 6c 20 69 | 66 20 74 68 65 20 62 75 |on-nil i|f the bu|
|000030e0| 74 74 6f 6e 20 65 76 65 | 6e 74 20 69 73 20 77 69 |tton eve|nt is wi|
|000030f0| 74 68 69 6e 20 74 68 65 | 20 62 6f 75 6e 64 73 20 |thin the| bounds |
|00003100| 6f 66 20 74 68 65 20 70 | 72 69 6d 61 72 79 0a 73 |of the p|rimary.s|
|00003110| 65 6c 65 63 74 69 6f 6e | 2d 65 78 74 65 6e 74 2c |election|-extent,|
|00003120| 20 6e 69 6c 20 6f 74 68 | 65 72 77 69 73 65 2e 1f | nil oth|erwise..|
|00003130| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 69 63 |.(defali|as 'clic|
|00003140| 6b 2d 69 6e 73 69 64 65 | 2d 65 78 74 65 6e 74 2d |k-inside|-extent-|
|00003150| 70 20 23 5b 28 63 6c 69 | 63 6b 20 65 78 74 65 6e |p #[(cli|ck exten|
|00003160| 74 29 20 22 c0 09 21 c2 | 09 21 1b 89 1c ad a0 0b |t) "..!.|.!......|
|00003170| ad 9d 0d ad 9a c6 0c 21 | c7 0d 21 61 ad 91 c8 0d |.......!|..!a....|
|00003180| 21 ad 8c 0b c8 0d 21 56 | ad 85 c9 0d 21 0b 56 2a |!.....!V|....!.V*|
|00003190| 87 22 20 5b 65 76 65 6e | 74 2d 77 69 6e 64 6f 77 |." [even|t-window|
|000031a0| 20 63 6c 69 63 6b 20 65 | 76 65 6e 74 2d 70 6f 69 | click e|vent-poi|
|000031b0| 6e 74 20 65 70 6e 74 20 | 65 77 69 6e 20 65 78 74 |nt epnt |ewin ext|
|000031c0| 65 6e 74 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |ent wind|ow-buffe|
|000031d0| 72 20 65 78 74 65 6e 74 | 2d 6f 62 6a 65 63 74 20 |r extent|-object |
|000031e0| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|000031f0| 69 74 69 6f 6e 20 65 78 | 74 65 6e 74 2d 65 6e 64 |ition ex|tent-end|
|00003200| 2d 70 6f 73 69 74 69 6f | 6e 5d 20 34 20 28 23 24 |-positio|n] 4 (#$|
|00003210| 20 2e 20 31 32 34 38 37 | 29 5d 29 0a 23 40 31 31 | . 12487|)]).#@11|
|00003220| 33 20 52 65 74 75 72 6e | 73 20 6e 6f 6e 2d 6e 69 |3 Return|s non-ni|
|00003230| 6c 20 69 66 20 74 68 65 | 20 70 6f 69 6e 74 20 69 |l if the| point i|
|00003240| 73 20 77 69 74 68 69 6e | 20 6f 72 20 6a 75 73 74 |s within| or just|
|00003250| 20 61 66 74 65 72 20 74 | 68 65 20 62 6f 75 6e 64 | after t|he bound|
|00003260| 73 20 6f 66 20 74 68 65 | 0a 70 72 69 6d 61 72 79 |s of the|.primary|
|00003270| 20 73 65 6c 65 63 74 69 | 6f 6e 2d 65 78 74 65 6e | selecti|on-exten|
|00003280| 74 2c 20 6e 69 6c 20 6f | 74 68 65 72 77 69 73 65 |t, nil o|therwise|
|00003290| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 6f |...(defa|lias 'po|
|000032a0| 69 6e 74 2d 69 6e 73 69 | 64 65 2d 65 78 74 65 6e |int-insi|de-exten|
|000032b0| 74 2d 70 20 23 5b 28 65 | 78 74 65 6e 74 29 20 22 |t-p #[(e|xtent) "|
|000032c0| 08 ad 93 70 c1 08 21 61 | ad 8c 60 c2 08 21 56 ad |...p..!a|..`..!V.|
|000032d0| 85 c3 08 21 60 59 87 22 | 20 5b 65 78 74 65 6e 74 |...!`Y."| [extent|
|000032e0| 20 65 78 74 65 6e 74 2d | 6f 62 6a 65 63 74 20 65 | extent-|object e|
|000032f0| 78 74 65 6e 74 2d 73 74 | 61 72 74 2d 70 6f 73 69 |xtent-st|art-posi|
|00003300| 74 69 6f 6e 20 65 78 74 | 65 6e 74 2d 65 6e 64 2d |tion ext|ent-end-|
|00003310| 70 6f 73 69 74 69 6f 6e | 5d 20 33 20 28 23 24 20 |position|] 3 (#$ |
|00003320| 2e 20 31 32 38 33 34 29 | 5d 29 0a 28 64 65 66 61 |. 12834)|]).(defa|
|00003330| 6c 69 61 73 20 27 67 64 | 62 73 72 63 2d 73 65 6c |lias 'gd|bsrc-sel|
|00003340| 65 63 74 2d 6f 72 2d 79 | 61 6e 6b 20 23 5b 28 65 |ect-or-y|ank #[(e|
|00003350| 65 29 20 22 8a c0 09 21 | 71 88 5c 6e ad 8a c3 09 |e) "...!|q.\n....|
|00003360| 5c 6e 5c 22 ad 84 c4 5c | 6e c5 5c 22 29 89 1d ab |\n\"...\|n.\")...|
|00003370| 85 c6 0d 21 aa 83 c7 09 | 21 29 87 22 20 5b 65 76 |...!....|!)." [ev|
|00003380| 65 6e 74 2d 62 75 66 66 | 65 72 20 65 65 20 6d 6f |ent-buff|er ee mo|
|00003390| 64 65 2d 6d 6f 74 69 6f | 6e 2d 65 78 74 65 6e 74 |de-motio|n-extent|
|000033a0| 20 63 6c 69 63 6b 2d 69 | 6e 73 69 64 65 2d 65 78 | click-i|nside-ex|
|000033b0| 74 65 6e 74 2d 70 20 65 | 78 74 65 6e 74 2d 70 72 |tent-p e|xtent-pr|
|000033c0| 6f 70 65 72 74 79 20 61 | 63 74 69 6f 6e 20 65 76 |operty a|ction ev|
|000033d0| 61 6c 20 6d 6f 75 73 65 | 2d 79 61 6e 6b 5d 20 34 |al mouse|-yank] 4|
|000033e0| 20 6e 69 6c 20 22 65 22 | 5d 29 0a 23 40 39 38 20 | nil "e"|]).#@98 |
|000033f0| 53 65 74 20 74 68 69 73 | 20 76 61 72 69 61 62 6c |Set this| variabl|
|00003400| 65 20 74 6f 20 61 20 76 | 61 6c 69 64 20 66 6f 72 |e to a v|alid for|
|00003410| 6d 61 74 20 73 74 72 69 | 6e 67 20 74 6f 20 70 72 |mat stri|ng to pr|
|00003420| 69 6e 74 20 63 2d 73 65 | 78 70 73 20 69 6e 20 61 |int c-se|xps in a|
|00003430| 0a 64 69 66 66 65 72 65 | 6e 74 20 77 61 79 20 28 |.differe|nt way (|
|00003440| 68 65 78 2c 6f 63 74 61 | 6c 2c 20 65 74 63 29 2e |hex,octa|l, etc).|
|00003450| 1f 0a 28 64 65 66 76 61 | 72 20 67 64 62 2d 70 72 |..(defva|r gdb-pr|
|00003460| 69 6e 74 2d 66 6f 72 6d | 61 74 20 22 22 20 28 23 |int-form|at "" (#|
|00003470| 24 20 2e 20 31 33 32 39 | 36 29 29 0a 23 40 36 36 |$ . 1329|6)).#@66|
|00003480| 20 46 69 6e 64 20 74 68 | 65 20 6e 65 61 72 65 73 | Find th|e neares|
|00003490| 74 20 63 2d 6d 6f 64 65 | 20 73 65 78 70 2e 20 53 |t c-mode| sexp. S|
|000034a0| 65 6e 64 20 69 74 20 74 | 6f 20 67 64 62 20 77 69 |end it t|o gdb wi|
|000034b0| 74 68 20 70 72 69 6e 74 | 20 63 6f 6d 6d 61 6e 64 |th print| command|
|000034c0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 64 |...(defa|lias 'gd|
|000034d0| 62 2d 70 72 69 6e 74 2d | 63 2d 73 65 78 70 20 23 |b-print-|c-sexp #|
|000034e0| 5b 6e 69 6c 20 22 c0 20 | 19 c2 0b 09 51 1c c5 0c |[nil ". |....Q...|
|000034f0| 21 2a 87 22 20 5b 66 69 | 6e 64 2d 63 2d 73 65 78 |!*." [fi|nd-c-sex|
|00003500| 70 20 74 61 67 20 22 70 | 72 69 6e 74 20 22 20 67 |p tag "p|rint " g|
|00003510| 64 62 2d 70 72 69 6e 74 | 2d 66 6f 72 6d 61 74 20 |db-print|-format |
|00003520| 63 6f 6d 6d 61 6e 64 20 | 67 64 62 2d 63 61 6c 6c |command |gdb-call|
|00003530| 2d 66 72 6f 6d 2d 73 72 | 63 5d 20 33 20 28 23 24 |-from-sr|c] 3 (#$|
|00003540| 20 2e 20 31 33 34 34 31 | 29 20 6e 69 6c 5d 29 0a | . 13441|) nil]).|
|00003550| 23 40 37 32 20 46 69 6e | 64 20 74 68 65 20 6e 65 |#@72 Fin|d the ne|
|00003560| 61 72 65 73 74 20 63 2d | 6d 6f 64 65 20 73 65 78 |arest c-|mode sex|
|00003570| 70 2e 20 53 65 6e 64 20 | 69 74 20 74 6f 20 67 64 |p. Send |it to gd|
|00003580| 62 20 77 69 74 68 20 74 | 68 65 20 70 72 69 6e 74 |b with t|he print|
|00003590| 20 2a 20 63 6f 6d 6d 61 | 6e 64 2e 1f 0a 28 64 65 | * comma|nd...(de|
|000035a0| 66 61 6c 69 61 73 20 27 | 67 64 62 2d 2a 70 72 69 |falias '|gdb-*pri|
|000035b0| 6e 74 2d 63 2d 73 65 78 | 70 20 23 5b 6e 69 6c 20 |nt-c-sex|p #[nil |
|000035c0| 22 c0 20 19 c2 0b c4 09 | 52 1d c6 0d 21 2a 87 22 |". .....|R...!*."|
|000035d0| 20 5b 66 69 6e 64 2d 63 | 2d 73 65 78 70 20 74 61 | [find-c|-sexp ta|
|000035e0| 67 20 22 70 72 69 6e 74 | 20 22 20 67 64 62 2d 70 |g "print| " gdb-p|
|000035f0| 72 69 6e 74 2d 66 6f 72 | 6d 61 74 20 22 2a 22 20 |rint-for|mat "*" |
|00003600| 63 6f 6d 6d 61 6e 64 20 | 67 64 62 2d 63 61 6c 6c |command |gdb-call|
|00003610| 2d 66 72 6f 6d 2d 73 72 | 63 5d 20 34 20 28 23 24 |-from-sr|c] 4 (#$|
|00003620| 20 2e 20 31 33 36 35 33 | 29 20 6e 69 6c 5d 29 0a | . 13653|) nil]).|
|00003630| 23 40 37 32 20 46 69 6e | 64 20 74 68 65 20 6e 65 |#@72 Fin|d the ne|
|00003640| 61 72 65 73 74 20 63 2d | 6d 6f 64 65 20 73 65 78 |arest c-|mode sex|
|00003650| 70 2e 20 53 65 6e 64 20 | 69 74 20 74 6f 20 67 64 |p. Send |it to gd|
|00003660| 62 20 77 69 74 68 20 74 | 68 65 20 77 68 61 74 69 |b with t|he whati|
|00003670| 73 20 63 6f 6d 6d 61 6e | 64 2e 20 1f 0a 28 64 65 |s comman|d. ..(de|
|00003680| 66 61 6c 69 61 73 20 27 | 67 64 62 2d 77 68 61 74 |falias '|gdb-what|
|00003690| 69 73 2d 63 2d 73 65 78 | 70 20 23 5b 6e 69 6c 20 |is-c-sex|p #[nil |
|000036a0| 22 c0 20 19 c2 09 50 1b | c4 0b 21 2a 87 22 20 5b |". ...P.|..!*." [|
|000036b0| 67 64 62 73 72 63 2d 73 | 65 6c 65 63 74 69 6f 6e |gdbsrc-s|election|
|000036c0| 2d 6f 72 2d 73 65 78 70 | 20 74 61 67 20 22 77 68 |-or-sexp| tag "wh|
|000036d0| 61 74 69 73 20 22 20 63 | 6f 6d 6d 61 6e 64 20 67 |atis " c|ommand g|
|000036e0| 64 62 2d 63 61 6c 6c 2d | 66 72 6f 6d 2d 73 72 63 |db-call-|from-src|
|000036f0| 5d 20 32 20 28 23 24 20 | 2e 20 31 33 38 37 37 29 |] 2 (#$ |. 13877)|
|00003700| 20 6e 69 6c 5d 29 0a 23 | 40 38 34 20 48 6f 70 20 | nil]).#|@84 Hop |
|00003710| 62 61 63 6b 20 61 6e 64 | 20 66 6f 72 74 68 20 62 |back and| forth b|
|00003720| 65 74 77 65 65 6e 20 74 | 68 65 20 67 64 62 20 69 |etween t|he gdb i|
|00003730| 6e 74 65 72 61 63 74 69 | 6f 6e 20 62 75 66 66 65 |nteracti|on buffe|
|00003740| 72 20 61 6e 64 20 74 68 | 65 20 67 64 62 20 73 6f |r and th|e gdb so|
|00003750| 75 72 63 65 0a 62 75 66 | 66 65 72 2e 20 20 1f 0a |urce.buf|fer.  ..|
|00003760| 28 64 65 66 61 6c 69 61 | 73 20 27 67 64 62 73 72 |(defalia|s 'gdbsr|
|00003770| 63 2d 67 6f 74 6f 2d 67 | 64 62 20 23 5b 6e 69 6c |c-goto-g|db #[nil|
|00003780| 20 22 08 ae 81 09 1a 70 | 5c 6e 61 ab 94 0b ad a8 | ".....p|\na.....|
|00003790| c4 0b 21 ad a3 c5 c4 0b | 21 21 88 c6 0b 21 62 aa |..!.....|!!...!b.|
|000037a0| 97 c7 5c 6e 21 ab 85 c5 | 5c 6e 21 aa 8d c8 c9 21 |..\n!...|\n!....!|
|000037b0| ab 85 ca cb 21 aa 83 cc | cd 21 29 87 22 20 5b 67 |....!...|.!)." [g|
|000037c0| 64 62 73 72 63 2d 61 73 | 73 6f 63 69 61 74 65 64 |dbsrc-as|sociated|
|000037d0| 2d 62 75 66 66 65 72 20 | 63 75 72 72 65 6e 74 2d |-buffer |current-|
|000037e0| 67 64 62 2d 62 75 66 66 | 65 72 20 67 62 75 66 20 |gdb-buff|er gbuf |
|000037f0| 67 64 62 2d 61 72 72 6f | 77 2d 65 78 74 65 6e 74 |gdb-arro|w-extent|
|00003800| 20 65 78 74 65 6e 74 2d | 6f 62 6a 65 63 74 20 70 | extent-|object p|
|00003810| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 20 65 78 74 |op-to-bu|ffer ext|
|00003820| 65 6e 74 2d 73 74 61 72 | 74 2d 70 6f 73 69 74 69 |ent-star|t-positi|
|00003830| 6f 6e 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 79 |on buffe|r-name y|
|00003840| 2d 6f 72 2d 6e 2d 70 20 | 22 4e 6f 20 64 65 62 75 |-or-n-p |"No debu|
|00003850| 67 67 65 72 2e 20 20 53 | 74 61 72 74 20 61 20 6e |gger.  S|tart a n|
|00003860| 65 77 20 6f 6e 65 3f 20 | 22 20 63 61 6c 6c 2d 69 |ew one? |" call-i|
|00003870| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 20 67 64 62 |nteracti|vely gdb|
|00003880| 73 72 63 20 65 72 72 6f | 72 20 22 4e 6f 20 67 64 |src erro|r "No gd|
|00003890| 62 20 62 75 66 66 65 72 | 2e 22 5d 20 33 20 28 23 |b buffer|."] 3 (#|
|000038a0| 24 20 2e 20 31 34 30 39 | 32 29 20 6e 69 6c 5d 29 |$ . 1409|2) nil])|
|000038b0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|000038c0| ac 82 c2 11 c1 0b 42 13 | c2 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|000038d0| 6e 64 70 20 67 64 62 73 | 72 63 2d 6c 61 73 74 2d |ndp gdbs|rc-last-|
|000038e0| 73 72 63 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 63 |src-buff|er nil c|
|000038f0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00003900| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00003910| 67 64 62 73 72 63 2d 67 | 6f 74 6f 2d 73 72 63 20 |gdbsrc-g|oto-src |
|00003920| 23 5b 6e 69 6c 20 22 08 | ad 84 08 c1 20 73 89 1a |#[nil ".|.... s..|
|00003930| ad 83 c3 08 21 89 1c ab | 85 c5 0c 21 aa 86 5c 6e |....!...|...!..\n|
|00003940| ad 83 c6 08 21 2a 87 22 | 20 5b 67 64 62 73 72 63 |....!*."| [gdbsrc|
|00003950| 2d 6c 61 73 74 2d 73 72 | 63 2d 62 75 66 66 65 72 |-last-sr|c-buffer|
|00003960| 20 62 75 66 66 65 72 2d | 6c 69 73 74 20 76 61 6c | buffer-|list val|
|00003970| 69 64 20 67 65 74 2d 62 | 75 66 66 65 72 2d 77 69 |id get-b|uffer-wi|
|00003980| 6e 64 6f 77 20 77 69 6e | 20 73 65 6c 65 63 74 2d |ndow win| select-|
|00003990| 77 69 6e 64 6f 77 20 70 | 6f 70 2d 74 6f 2d 62 75 |window p|op-to-bu|
|000039a0| 66 66 65 72 5d 20 33 20 | 6e 69 6c 20 6e 69 6c 5d |ffer] 3 |nil nil]|
|000039b0| 29 0a 23 40 34 36 20 56 | 65 72 73 69 6f 6e 20 6f |).#@46 V|ersion o|
|000039c0| 66 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 20 |f backwa|rd-sexp |
|000039d0| 74 68 61 74 20 63 61 74 | 63 68 65 73 20 65 72 72 |that cat|ches err|
|000039e0| 6f 72 73 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ors..(de|falias '|
|000039f0| 62 61 63 6b 2d 73 65 78 | 70 20 23 5b 6e 69 6c 20 |back-sex|p #[nil |
|00003a00| 22 c0 c1 c2 8f 87 22 20 | 5b 6e 69 6c 20 28 62 61 |"....." |[nil (ba|
|00003a10| 63 6b 77 61 72 64 2d 73 | 65 78 70 29 20 28 28 65 |ckward-s|exp) ((e|
|00003a20| 72 72 6f 72 20 74 29 29 | 5d 20 33 20 28 23 24 20 |rror t))|] 3 (#$ |
|00003a30| 2e 20 31 34 37 37 35 29 | 5d 29 0a 23 40 34 35 20 |. 14775)|]).#@45 |
|00003a40| 56 65 72 73 69 6f 6e 20 | 6f 66 20 66 6f 72 77 61 |Version |of forwa|
|00003a50| 72 64 2d 73 65 78 70 20 | 74 68 61 74 20 63 61 74 |rd-sexp |that cat|
|00003a60| 63 68 65 73 20 65 72 72 | 6f 72 73 1f 0a 28 64 65 |ches err|ors..(de|
|00003a70| 66 61 6c 69 61 73 20 27 | 66 6f 72 77 2d 73 65 78 |falias '|forw-sex|
|00003a80| 70 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f 87 22 20 |p #[nil |"....." |
|00003a90| 5b 6e 69 6c 20 28 66 6f | 72 77 61 72 64 2d 73 65 |[nil (fo|rward-se|
|00003aa0| 78 70 29 20 28 28 65 72 | 72 6f 72 20 74 29 29 5d |xp) ((er|ror t))]|
|00003ab0| 20 33 20 28 23 24 20 2e | 20 31 34 39 31 32 29 5d | 3 (#$ .| 14912)]|
|00003ac0| 29 0a 23 40 39 31 20 52 | 65 74 75 72 6e 73 20 27 |).#@91 R|eturns '|
|00003ad0| 2e 27 20 66 6f 72 20 27 | 2d 3e 27 20 26 20 27 2e |.' for '|->' & '.|
|00003ae0| 27 2c 20 72 65 74 75 72 | 6e 73 20 27 20 27 20 66 |', retur|ns ' ' f|
|00003af0| 6f 72 20 77 68 69 74 65 | 20 73 70 61 63 65 2c 0a |or white| space,.|
|00003b00| 72 65 74 75 72 6e 73 20 | 27 3f 27 20 66 6f 72 20 |returns |'?' for |
|00003b10| 6f 74 68 65 72 20 70 75 | 63 74 75 61 74 69 6f 6e |other pu|ctuation|
|00003b20| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 78 |..(defal|ias 'sex|
|00003b30| 70 2d 63 6f 6d 70 6f 75 | 6e 64 2d 73 65 70 20 23 |p-compou|nd-sep #|
|00003b40| 5b 28 73 70 61 6e 2d 73 | 74 61 72 74 20 73 70 61 |[(span-s|tart spa|
|00003b50| 6e 2d 65 6e 64 29 20 22 | c0 c1 1a 1b 0c 0d 57 ab |n-end) "|......W.|
|00003b60| b7 0c 66 7a 89 12 c0 55 | ac a8 5c 6e c6 55 ab a3 |..fz...U|..\n.U..|
|00003b70| 0c 66 89 12 c6 55 ab 84 | c6 13 aa 97 5c 6e c7 55 |.f...U..|....\n.U|
|00003b80| ab 8e 0c 54 66 c8 55 ab | 87 c6 13 0c 54 14 aa 84 |...Tf.U.|....T...|
|00003b90| 0d 14 c9 13 0c 54 89 14 | aa 45 0b 2a 87 22 20 5b |.....T..|.E.*." [|
|00003ba0| 3f 5c 20 20 6e 69 6c 20 | 73 79 6e 74 61 78 20 72 |?\  nil |syntax r|
|00003bb0| 65 73 75 6c 74 20 73 70 | 61 6e 2d 73 74 61 72 74 |esult sp|an-start|
|00003bc0| 20 73 70 61 6e 2d 65 6e | 64 20 3f 5c 2e 20 3f 5c | span-en|d ?\. ?\|
|00003bd0| 2d 20 3f 5c 3e 20 3f 5c | 3f 5d 20 33 20 28 23 24 |- ?\> ?\|?] 3 (#$|
|00003be0| 20 2e 20 31 35 30 34 37 | 29 5d 29 0a 23 40 34 38 | . 15047|)]).#@48|
|00003bf0| 37 20 52 65 74 75 72 6e | 73 20 6e 6f 6e 2d 6e 69 |7 Return|s non-ni|
|00003c00| 6c 20 69 66 20 74 68 65 | 20 63 6f 6e 63 61 74 65 |l if the| concate|
|00003c10| 6e 61 74 69 6f 6e 20 6f | 66 20 74 77 6f 20 53 2d |nation o|f two S-|
|00003c20| 45 58 50 73 20 72 65 73 | 75 6c 74 20 69 6e 20 61 |EXPs res|ult in a|
|00003c30| 20 53 69 6e 67 6c 65 20 | 43 20 0a 74 6f 6b 65 6e | Single |C .token|
|00003c40| 2e 20 54 68 65 20 74 77 | 6f 20 53 2d 45 58 50 73 |. The tw|o S-EXPs|
|00003c50| 20 61 72 65 20 72 65 70 | 72 65 73 65 6e 74 65 64 | are rep|resented|
|00003c60| 20 61 73 20 61 20 63 6f | 6e 73 20 63 65 6c 6c 73 | as a co|ns cells|
|00003c70| 2c 20 77 68 65 72 65 20 | 74 68 65 20 63 61 72 20 |, where |the car |
|00003c80| 0a 73 70 65 63 69 66 69 | 65 73 20 74 68 65 20 70 |.specifi|es the p|
|00003c90| 6f 69 6e 74 20 69 6e 20 | 74 68 65 20 63 75 72 72 |oint in |the curr|
|00003ca0| 65 6e 74 20 62 75 66 66 | 65 72 20 74 68 61 74 20 |ent buff|er that |
|00003cb0| 6d 61 72 6b 73 20 74 68 | 65 20 62 65 67 67 69 6e |marks th|e beggin|
|00003cc0| 67 20 6f 66 20 74 68 65 | 20 0a 53 2d 45 58 50 20 |g of the| .S-EXP |
|00003cd0| 61 6e 64 20 74 68 65 20 | 63 64 72 20 73 70 65 63 |and the |cdr spec|
|00003ce0| 69 66 69 65 73 20 74 68 | 65 20 63 68 61 72 61 63 |ifies th|e charac|
|00003cf0| 74 65 72 20 61 66 74 65 | 72 20 74 68 65 20 65 6e |ter afte|r the en|
|00003d00| 64 20 6f 66 20 74 68 65 | 20 53 2d 45 58 50 0a 4c |d of the| S-EXP.L|
|00003d10| 69 6e 6b 20 53 2d 45 78 | 70 73 20 6f 66 20 74 68 |ink S-Ex|ps of th|
|00003d20| 65 20 66 6f 72 6d 3a 0a | 20 20 20 20 20 20 53 65 |e form:.|      Se|
|00003d30| 78 70 20 2d 3e 20 53 65 | 78 70 43 0a 20 20 20 20 |xp -> Se|xpC.    |
|00003d40| 20 20 53 65 78 70 20 2e | 20 53 65 78 70 0a 20 20 |  Sexp .| Sexp.  |
|00003d50| 20 20 20 20 53 65 78 70 | 20 28 53 65 78 70 29 20 |    Sexp| (Sexp) |
|00003d60| 20 20 20 20 20 20 20 4d | 61 79 62 65 20 65 78 63 |       M|aybe exc|
|00003d70| 6c 75 64 65 20 69 66 20 | 66 69 72 73 74 20 53 65 |lude if |first Se|
|00003d80| 78 70 20 69 73 3a 20 69 | 66 2c 20 77 68 69 6c 65 |xp is: i|f, while|
|00003d90| 2c 20 64 6f 2c 20 66 6f | 72 2c 20 73 77 69 74 63 |, do, fo|r, switc|
|00003da0| 68 0a 20 20 20 20 20 20 | 53 65 78 70 20 5b 53 65 |h.      |Sexp [Se|
|00003db0| 78 70 5d 0a 20 20 20 20 | 20 20 28 53 65 78 70 29 |xp].    |  (Sexp)|
|00003dc0| 20 53 65 78 70 0a 20 20 | 20 20 20 20 5b 53 65 78 | Sexp.  |    [Sex|
|00003dd0| 70 5d 20 53 65 78 70 1f | 0a 28 64 65 66 61 6c 69 |p] Sexp.|.(defali|
|00003de0| 61 73 20 27 73 65 78 70 | 2d 63 6f 6d 70 6f 75 6e |as 'sexp|-compoun|
|00003df0| 64 20 23 5b 28 66 69 72 | 73 74 20 73 65 63 6f 6e |d #[(fir|st secon|
|00003e00| 64 29 20 22 08 41 09 40 | c2 1b 1c 1d c6 0d 0c 5c |d) ".A.@|.......\|
|00003e10| 22 13 08 40 09 40 55 ab | 83 c2 aa c2 08 41 09 41 |"..@.@U.|.....A.A|
|00003e20| 55 ab 83 c2 aa b8 0b c7 | 55 ab 83 c8 aa b0 0b c9 |U.......|U.......|
|00003e30| 55 ab aa 0d 53 66 15 0c | 66 14 0d ca 55 ab 83 c8 |U...Sf..|f...U...|
|00003e40| aa 9c 0d cb 55 ab 83 c8 | aa 94 0c cc 55 ab 83 c8 |....U...|....U...|
|00003e50| aa 8c 0c cd 55 ab 83 c8 | aa 84 c2 aa 81 c2 2b 87 |....U...|......+.|
|00003e60| 22 20 5b 66 69 72 73 74 | 20 73 65 63 6f 6e 64 20 |" [first| second |
|00003e70| 6e 69 6c 20 73 79 6e 74 | 61 78 20 73 70 61 6e 2d |nil synt|ax span-|
|00003e80| 65 6e 64 20 73 70 61 6e | 2d 73 74 61 72 74 20 73 |end span|-start s|
|00003e90| 65 78 70 2d 63 6f 6d 70 | 6f 75 6e 64 2d 73 65 70 |exp-comp|ound-sep|
|00003ea0| 20 3f 5c 2e 20 74 20 3f | 5c 20 20 3f 5c 29 20 3f | ?\. t ?|\  ?\) ?|
|00003eb0| 5c 5d 20 3f 5c 28 20 3f | 5c 5b 5d 20 33 20 28 23 |\] ?\( ?|\[] 3 (#|
|00003ec0| 24 20 2e 20 31 35 33 34 | 36 29 5d 29 0a 23 40 32 |$ . 1534|6)]).#@2|
|00003ed0| 37 36 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 20 |76 Retur|ns the  |
|00003ee0| 53 2d 45 58 50 20 74 68 | 61 74 20 50 6f 69 6e 74 |S-EXP th|at Point|
|00003ef0| 20 69 73 20 61 20 6d 65 | 6d 62 65 72 2c 20 50 6f | is a me|mber, Po|
|00003f00| 69 6e 74 20 69 73 20 73 | 65 74 20 74 6f 20 62 65 |int is s|et to be|
|00003f10| 67 67 69 6e 67 20 6f 66 | 20 53 2d 45 58 50 2e 0a |gging of| S-EXP..|
|00003f20| 54 68 65 20 53 2d 45 58 | 50 73 20 69 73 20 72 65 |The S-EX|Ps is re|
|00003f30| 70 72 65 73 65 6e 74 65 | 64 20 61 73 20 61 20 63 |presente|d as a c|
|00003f40| 6f 6e 73 20 63 65 6c 6c | 2c 20 77 68 65 72 65 20 |ons cell|, where |
|00003f50| 74 68 65 20 63 61 72 20 | 73 70 65 63 69 66 69 65 |the car |specifie|
|00003f60| 73 20 74 68 65 20 70 6f | 69 6e 74 20 69 6e 0a 74 |s the po|int in.t|
|00003f70| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00003f80| 72 20 74 68 61 74 20 6d | 61 72 6b 73 20 74 68 65 |r that m|arks the|
|00003f90| 20 62 65 67 67 69 6e 67 | 20 6f 66 20 74 68 65 20 | begging| of the |
|00003fa0| 53 2d 45 58 50 20 61 6e | 64 20 74 68 65 20 63 64 |S-EXP an|d the cd|
|00003fb0| 72 20 73 70 65 63 69 66 | 69 65 73 20 0a 74 68 65 |r specif|ies .the|
|00003fc0| 20 63 68 61 72 61 63 74 | 65 72 20 61 66 74 65 72 | charact|er after|
|00003fd0| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00003fe0| 53 2d 45 58 50 1f 0a 28 | 64 65 66 61 6c 69 61 73 |S-EXP..(|defalias|
|00003ff0| 20 27 73 65 78 70 2d 63 | 75 72 20 23 5b 6e 69 6c | 'sexp-c|ur #[nil|
|00004000| 20 22 60 c0 89 19 1a 1b | c4 20 88 60 12 c5 20 88 | "`.....|. .`.. .|
|00004010| 60 11 0b 09 59 ab 8a 0b | 12 0b 62 88 c5 20 88 60 |`...Y...|..b.. .`|
|00004020| 11 5c 6e 62 88 5c 6e 09 | 2b 42 87 22 20 5b 6e 69 |.\nb.\n.|+B." [ni|
|00004030| 6c 20 65 6e 64 20 62 65 | 67 69 6e 20 70 20 62 61 |l end be|gin p ba|
|00004040| 63 6b 2d 73 65 78 70 20 | 66 6f 72 77 2d 73 65 78 |ck-sexp |forw-sex|
|00004050| 70 5d 20 33 20 28 23 24 | 20 2e 20 31 36 30 38 33 |p] 3 (#$| . 16083|
|00004060| 29 5d 29 0a 23 40 32 36 | 36 20 52 65 74 75 72 6e |)]).#@26|6 Return|
|00004070| 73 20 74 68 65 20 70 72 | 65 76 69 6f 75 73 20 53 |s the pr|evious S|
|00004080| 2d 45 58 50 2c 20 50 6f | 69 6e 74 20 69 73 20 73 |-EXP, Po|int is s|
|00004090| 65 74 20 74 6f 20 62 65 | 67 67 69 6e 67 20 6f 66 |et to be|gging of|
|000040a0| 20 74 68 61 74 20 53 2d | 45 58 50 2e 0a 54 68 65 | that S-|EXP..The|
|000040b0| 20 53 2d 45 58 50 73 20 | 69 73 20 72 65 70 72 65 | S-EXPs |is repre|
|000040c0| 73 65 6e 74 65 64 20 61 | 73 20 61 20 63 6f 6e 73 |sented a|s a cons|
|000040d0| 20 63 65 6c 6c 2c 20 77 | 68 65 72 65 20 74 68 65 | cell, w|here the|
|000040e0| 20 63 61 72 20 73 70 65 | 63 69 66 69 65 73 20 74 | car spe|cifies t|
|000040f0| 68 65 20 70 6f 69 6e 74 | 20 69 6e 0a 74 68 65 20 |he point| in.the |
|00004100| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 74 |current |buffer t|
|00004110| 68 61 74 20 6d 61 72 6b | 73 20 74 68 65 20 62 65 |hat mark|s the be|
|00004120| 67 67 69 6e 67 20 6f 66 | 20 74 68 65 20 53 2d 45 |gging of| the S-E|
|00004130| 58 50 20 61 6e 64 20 74 | 68 65 20 63 64 72 20 73 |XP and t|he cdr s|
|00004140| 70 65 63 69 66 69 65 73 | 20 0a 74 68 65 20 63 68 |pecifies| .the ch|
|00004150| 61 72 61 63 74 65 72 20 | 61 66 74 65 72 20 74 68 |aracter |after th|
|00004160| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 53 2d 45 |e end of| the S-E|
|00004170| 58 50 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |XP..(def|alias 's|
|00004180| 65 78 70 2d 70 72 65 76 | 20 23 5b 6e 69 6c 20 22 |exp-prev| #[nil "|
|00004190| c0 89 19 1a c3 20 88 60 | 12 c4 20 88 60 11 5c 6e |..... .`|.. .`.\n|
|000041a0| 62 88 5c 6e 09 2a 42 87 | 22 20 5b 6e 69 6c 20 65 |b.\n.*B.|" [nil e|
|000041b0| 6e 64 20 62 65 67 69 6e | 20 62 61 63 6b 2d 73 65 |nd begin| back-se|
|000041c0| 78 70 20 66 6f 72 77 2d | 73 65 78 70 5d 20 32 20 |xp forw-|sexp] 2 |
|000041d0| 28 23 24 20 2e 20 31 36 | 34 39 30 29 5d 29 0a 23 |(#$ . 16|490)]).#|
|000041e0| 40 32 36 37 20 52 65 74 | 75 72 6e 73 20 74 68 65 |@267 Ret|urns the|
|000041f0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 53 2d 45 58 50 | followi|ng S-EXP|
|00004200| 2c 20 50 6f 69 6e 74 20 | 69 73 20 73 65 74 20 74 |, Point |is set t|
|00004210| 6f 20 62 65 67 67 69 6e | 67 20 6f 66 20 74 68 61 |o beggin|g of tha|
|00004220| 74 20 53 2d 45 58 50 2e | 0a 54 68 65 20 53 2d 45 |t S-EXP.|.The S-E|
|00004230| 58 50 73 20 69 73 20 72 | 65 70 72 65 73 65 6e 74 |XPs is r|epresent|
|00004240| 65 64 20 61 73 20 61 20 | 63 6f 6e 73 20 63 65 6c |ed as a |cons cel|
|00004250| 6c 2c 20 77 68 65 72 65 | 20 74 68 65 20 63 61 72 |l, where| the car|
|00004260| 20 73 70 65 63 69 66 69 | 65 73 20 74 68 65 20 70 | specifi|es the p|
|00004270| 6f 69 6e 74 20 69 6e 0a | 74 68 65 20 63 75 72 72 |oint in.|the curr|
|00004280| 65 6e 74 20 62 75 66 66 | 65 72 20 74 68 61 74 20 |ent buff|er that |
|00004290| 6d 61 72 6b 73 20 74 68 | 65 20 62 65 67 67 69 6e |marks th|e beggin|
|000042a0| 67 20 6f 66 20 74 68 65 | 20 53 2d 45 58 50 20 61 |g of the| S-EXP a|
|000042b0| 6e 64 20 74 68 65 20 63 | 64 72 20 73 70 65 63 69 |nd the c|dr speci|
|000042c0| 66 69 65 73 20 0a 74 68 | 65 20 63 68 61 72 61 63 |fies .th|e charac|
|000042d0| 74 65 72 20 61 66 74 65 | 72 20 74 68 65 20 65 6e |ter afte|r the en|
|000042e0| 64 20 6f 66 20 74 68 65 | 20 53 2d 45 58 50 1f 0a |d of the| S-EXP..|
|000042f0| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 78 70 2d |(defalia|s 'sexp-|
|00004300| 6e 65 78 74 20 23 5b 6e | 69 6c 20 22 c0 89 19 1a |next #[n|il "....|
|00004310| c3 20 88 c3 20 88 60 11 | c4 20 88 60 89 12 09 2a |. .. .`.|. .`...*|
|00004320| 42 87 22 20 5b 6e 69 6c | 20 65 6e 64 20 62 65 67 |B." [nil| end beg|
|00004330| 69 6e 20 66 6f 72 77 2d | 73 65 78 70 20 62 61 63 |in forw-|sexp bac|
|00004340| 6b 2d 73 65 78 70 5d 20 | 33 20 28 23 24 20 2e 20 |k-sexp] |3 (#$ . |
|00004350| 31 36 38 36 39 29 5d 29 | 0a 23 40 34 39 20 52 65 |16869)])|.#@49 Re|
|00004360| 74 75 72 6e 73 20 74 68 | 65 20 43 6f 6d 70 6c 65 |turns th|e Comple|
|00004370| 78 20 20 53 2d 45 58 50 | 20 74 68 61 74 20 73 75 |x  S-EXP| that su|
|00004380| 72 72 6f 75 6e 64 73 20 | 50 6f 69 6e 74 1f 0a 28 |rrounds |Point..(|
|00004390| 64 65 66 61 6c 69 61 73 | 20 27 66 69 6e 64 2d 63 |defalias| 'find-c|
|000043a0| 2d 73 65 78 70 20 23 5b | 6e 69 6c 20 22 8a c0 89 |-sexp #[|nil "...|
|000043b0| 89 19 1a 1b 60 13 c4 20 | 12 c5 20 11 c6 09 5c 6e |....`.. |.. ...\n|
|000043c0| 5c 22 ab 8f 09 40 5c 6e | 41 42 89 12 40 62 88 c5 |\"...@\n|AB..@b..|
|000043d0| 20 11 aa 6b 0b 62 88 c7 | 20 11 c6 5c 6e 09 5c 22 | ..k.b..| ..\n.\"|
|000043e0| ab 8b 5c 6e 40 09 41 42 | 12 c7 20 11 aa 6f 5c 6e |..\n@.AB|.. ..o\n|
|000043f0| 40 5c 6e 41 7b 2c 87 22 | 20 5b 6e 69 6c 20 74 65 |@\nA{,."| [nil te|
|00004400| 73 74 2d 73 65 78 70 20 | 73 65 78 70 20 70 20 73 |st-sexp |sexp p s|
|00004410| 65 78 70 2d 63 75 72 20 | 73 65 78 70 2d 70 72 65 |exp-cur |sexp-pre|
|00004420| 76 20 73 65 78 70 2d 63 | 6f 6d 70 6f 75 6e 64 20 |v sexp-c|ompound |
|00004430| 73 65 78 70 2d 6e 65 78 | 74 5d 20 34 20 28 23 24 |sexp-nex|t] 4 (#$|
|00004440| 20 2e 20 31 37 32 34 36 | 29 20 6e 69 6c 5d 29 0a | . 17246|) nil]).|
|00004450| 23 40 32 30 39 20 49 66 | 20 74 68 65 20 45 56 45 |#@209 If| the EVE|
|00004460| 4e 54 20 69 73 20 77 69 | 74 68 69 6e 20 74 68 65 |NT is wi|thin the|
|00004470| 20 70 72 69 6d 61 72 79 | 20 73 65 6c 65 63 74 69 | primary| selecti|
|00004480| 6f 6e 2c 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |on, then| return |
|00004490| 74 68 65 20 73 65 6c 65 | 63 74 65 64 0a 74 65 78 |the sele|cted.tex|
|000044a0| 74 2c 20 6f 74 68 65 72 | 77 69 73 65 20 70 61 72 |t, other|wise par|
|000044b0| 73 65 20 74 68 65 20 65 | 78 70 72 65 73 73 69 6f |se the e|xpressio|
|000044c0| 6e 20 61 74 20 74 68 65 | 20 70 6f 69 6e 74 20 6f |n at the| point o|
|000044d0| 66 20 74 68 65 20 6d 6f | 75 73 65 20 63 6c 69 63 |f the mo|use clic|
|000044e0| 6b 20 61 6e 64 0a 72 65 | 74 75 72 6e 20 74 68 61 |k and.re|turn tha|
|000044f0| 74 2e 20 20 49 66 20 45 | 56 45 4e 54 20 69 73 20 |t.  If E|VENT is |
|00004500| 6e 69 6c 2c 20 74 68 65 | 6e 20 72 65 74 75 72 6e |nil, the|n return|
|00004510| 20 74 68 65 20 43 20 73 | 65 78 70 20 61 74 20 70 | the C s|exp at p|
|00004520| 6f 69 6e 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |oint...(|defalias|
|00004530| 20 27 67 64 62 73 72 63 | 2d 73 65 6c 65 63 74 69 | 'gdbsrc|-selecti|
|00004540| 6f 6e 2d 6f 72 2d 73 65 | 78 70 20 23 5b 28 26 6f |on-or-se|xp #[(&o|
|00004550| 70 74 69 6f 6e 61 6c 20 | 65 65 29 20 22 08 ab 85 |ptional |ee) "...|
|00004560| c1 08 21 ac 87 08 ac 8c | c2 20 ab 88 c3 c4 0d 21 |..!.....|. .....!|
|00004570| c6 c7 23 87 08 ab 84 c8 | 08 21 87 c9 20 87 22 20 |..#.....|.!.. ." |
|00004580| 5b 65 65 20 63 6c 69 63 | 6b 2d 69 6e 73 69 64 65 |[ee clic|k-inside|
|00004590| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 70 20 70 6f 69 |-selecti|on-p poi|
|000045a0| 6e 74 2d 69 6e 73 69 64 | 65 2d 73 65 6c 65 63 74 |nt-insid|e-select|
|000045b0| 69 6f 6e 2d 70 20 72 65 | 70 6c 61 63 65 2d 69 6e |ion-p re|place-in|
|000045c0| 2d 73 74 72 69 6e 67 20 | 65 78 74 65 6e 74 2d 73 |-string |extent-s|
|000045d0| 74 72 69 6e 67 20 70 72 | 69 6d 61 72 79 2d 73 65 |tring pr|imary-se|
|000045e0| 6c 65 63 74 69 6f 6e 2d | 65 78 74 65 6e 74 20 22 |lection-|extent "|
|000045f0| 5c 6e 5c 5c 73 20 2a 22 | 20 22 20 22 20 67 64 62 |\n\\s *"| " " gdb|
|00004600| 73 72 63 2d 67 65 74 2d | 63 73 65 78 70 2d 61 74 |src-get-|csexp-at|
|00004610| 2d 63 6c 69 63 6b 20 66 | 69 6e 64 2d 63 2d 73 65 |-click f|ind-c-se|
|00004620| 78 70 5d 20 34 20 28 23 | 24 20 2e 20 31 37 34 39 |xp] 4 (#|$ . 1749|
|00004630| 34 29 5d 29 0a 23 40 37 | 35 20 52 65 74 75 72 6e |4)]).#@7|5 Return|
|00004640| 73 20 74 68 65 20 63 6f | 6e 74 61 69 6e 69 6e 67 |s the co|ntaining|
|00004650| 20 73 2d 65 78 70 72 65 | 73 73 69 6f 6e 20 6c 6f | s-expre|ssion lo|
|00004660| 63 61 74 65 64 20 61 74 | 20 74 68 65 20 6d 6f 75 |cated at| the mou|
|00004670| 73 65 20 63 75 72 73 6f | 72 20 74 6f 20 70 6f 69 |se curso|r to poi|
|00004680| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|00004690| 67 64 62 73 72 63 2d 67 | 65 74 2d 63 73 65 78 70 |gdbsrc-g|et-csexp|
|000046a0| 2d 61 74 2d 63 6c 69 63 | 6b 20 23 5b 28 65 65 29 |-at-clic|k #[(ee)|
|000046b0| 20 22 c0 09 21 c2 09 21 | 1b 89 1c ab 83 0b ac 84 | "..!..!|........|
|000046c0| c5 c6 21 88 8a c7 0c 21 | 71 88 8a 0b 62 88 c8 20 |..!....!|q...b.. |
|000046d0| 2c 87 22 20 5b 65 76 65 | 6e 74 2d 77 69 6e 64 6f |,." [eve|nt-windo|
|000046e0| 77 20 65 65 20 65 76 65 | 6e 74 2d 70 6f 69 6e 74 |w ee eve|nt-point|
|000046f0| 20 65 70 6e 74 20 65 77 | 69 6e 20 65 72 72 6f 72 | epnt ew|in error|
|00004700| 20 22 4d 75 73 74 20 63 | 6c 69 63 6b 20 77 69 74 | "Must c|lick wit|
|00004710| 68 69 6e 20 61 20 77 69 | 6e 64 6f 77 22 20 77 69 |hin a wi|ndow" wi|
|00004720| 6e 64 6f 77 2d 62 75 66 | 66 65 72 20 66 69 6e 64 |ndow-buf|fer find|
|00004730| 2d 63 2d 73 65 78 70 5d | 20 34 20 28 23 24 20 2e |-c-sexp]| 4 (#$ .|
|00004740| 20 31 37 39 37 38 29 5d | 29 0a 28 64 65 66 61 6c | 17978)]|).(defal|
|00004750| 69 61 73 20 27 67 64 62 | 73 72 63 2d 70 72 69 6e |ias 'gdb|src-prin|
|00004760| 74 2d 63 73 65 78 70 20 | 23 5b 28 26 6f 70 74 69 |t-csexp |#[(&opti|
|00004770| 6f 6e 61 6c 20 65 65 29 | 20 22 08 ac 82 09 10 c2 |onal ee)| "......|
|00004780| c3 0c c5 08 21 51 21 87 | 22 20 5b 65 65 20 63 75 |....!Q!.|" [ee cu|
|00004790| 72 72 65 6e 74 2d 6d 6f | 75 73 65 2d 65 76 65 6e |rrent-mo|use-even|
|000047a0| 74 20 67 64 62 2d 63 61 | 6c 6c 2d 66 72 6f 6d 2d |t gdb-ca|ll-from-|
|000047b0| 73 72 63 20 22 70 72 69 | 6e 74 20 22 20 67 64 62 |src "pri|nt " gdb|
|000047c0| 2d 70 72 69 6e 74 2d 66 | 6f 72 6d 61 74 20 67 64 |-print-f|ormat gd|
|000047d0| 62 73 72 63 2d 73 65 6c | 65 63 74 69 6f 6e 2d 6f |bsrc-sel|ection-o|
|000047e0| 72 2d 73 65 78 70 5d 20 | 35 20 6e 69 6c 20 6e 69 |r-sexp] |5 nil ni|
|000047f0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |l]).(def|alias 'g|
|00004800| 64 62 73 72 63 2d 2a 70 | 72 69 6e 74 2d 63 73 65 |dbsrc-*p|rint-cse|
|00004810| 78 70 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |xp #[(&o|ptional |
|00004820| 65 65 29 20 22 08 ac 82 | 09 10 c2 c3 0c c5 08 21 |ee) "...|.......!|
|00004830| 51 21 87 22 20 5b 65 65 | 20 63 75 72 72 65 6e 74 |Q!." [ee| current|
|00004840| 2d 6d 6f 75 73 65 2d 65 | 76 65 6e 74 20 67 64 62 |-mouse-e|vent gdb|
|00004850| 2d 63 61 6c 6c 2d 66 72 | 6f 6d 2d 73 72 63 20 22 |-call-fr|om-src "|
|00004860| 70 72 69 6e 74 20 2a 22 | 20 67 64 62 2d 70 72 69 |print *"| gdb-pri|
|00004870| 6e 74 2d 66 6f 72 6d 61 | 74 20 67 64 62 73 72 63 |nt-forma|t gdbsrc|
|00004880| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 6f 72 2d 73 65 |-selecti|on-or-se|
|00004890| 78 70 5d 20 35 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a |xp] 5 ni|l nil]).|
|000048a0| 23 40 35 38 20 72 65 74 | 75 72 6e 73 20 22 66 69 |#@58 ret|urns "fi|
|000048b0| 6c 65 3a 6c 6e 6f 22 20 | 73 70 65 63 69 66 69 63 |le:lno" |specific|
|000048c0| 61 74 69 6f 6e 20 66 6f | 72 20 6c 6f 63 61 74 69 |ation fo|r locati|
|000048d0| 6f 6e 20 6f 66 20 70 6f | 69 6e 74 2e 20 1f 0a 28 |on of po|int. ..(|
|000048e0| 64 65 66 61 6c 69 61 73 | 20 27 67 64 62 73 72 63 |defalias| 'gdbsrc|
|000048f0| 2d 66 69 6c 65 3a 6c 6e | 6f 20 23 5b 6e 69 6c 20 |-file:ln|o #[nil |
|00004900| 22 c0 c1 c2 0b 21 8c 7e | 88 c4 65 8a c5 79 88 60 |"....!.~|..e..y.`|
|00004910| 29 5c 22 54 29 23 87 22 | 20 5b 66 6f 72 6d 61 74 |)\"T)#."| [format|
|00004920| 20 22 25 73 3a 25 64 22 | 20 66 69 6c 65 2d 6e 61 | "%s:%d"| file-na|
|00004930| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|00004940| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00004950| 20 63 6f 75 6e 74 2d 6c | 69 6e 65 73 20 30 5d 20 | count-l|ines 0] |
|00004960| 36 20 28 23 24 20 2e 20 | 31 38 35 39 37 29 5d 29 |6 (#$ . |18597)])|
|00004970| 0a 23 40 31 39 35 20 53 | 65 74 73 20 61 20 62 72 |.#@195 S|ets a br|
|00004980| 65 61 6b 70 6f 69 6e 74 | 2e 20 20 43 6c 69 63 6b |eakpoint|.  Click|
|00004990| 20 6f 6e 20 74 68 65 20 | 73 65 6c 65 63 74 69 6f | on the |selectio|
|000049a0| 6e 20 61 6e 64 20 69 74 | 20 77 69 6c 6c 20 73 65 |n and it| will se|
|000049b0| 74 20 61 20 62 72 65 61 | 6b 70 6f 69 6e 74 0a 75 |t a brea|kpoint.u|
|000049c0| 73 69 6e 67 20 74 68 65 | 20 73 65 6c 65 63 74 65 |sing the| selecte|
|000049d0| 64 20 74 65 78 74 2e 20 | 20 43 6c 69 63 6b 20 61 |d text. | Click a|
|000049e0| 6e 79 77 68 65 72 65 20 | 69 6e 20 61 20 73 6f 75 |nywhere |in a sou|
|000049f0| 72 63 65 20 66 69 6c 65 | 2c 20 61 6e 64 20 69 74 |rce file|, and it|
|00004a00| 20 77 69 6c 6c 20 73 65 | 74 0a 61 20 62 72 65 61 | will se|t.a brea|
|00004a10| 6b 70 6f 69 6e 74 20 61 | 74 20 74 68 61 74 20 6c |kpoint a|t that l|
|00004a20| 69 6e 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |ine numb|er of th|
|00004a30| 61 74 20 66 69 6c 65 2e | 1f 0a 28 64 65 66 61 6c |at file.|..(defal|
|00004a40| 69 61 73 20 27 67 64 62 | 73 72 63 2d 73 65 74 2d |ias 'gdb|src-set-|
|00004a50| 62 72 65 61 6b 20 23 5b | 28 65 65 29 20 22 c0 c1 |break #[|(ee) "..|
|00004a60| c2 0b 21 ab 85 c4 0d 21 | aa 8e c6 0b 21 88 0e 07 |..!....!|....!...|
|00004a70| ac 84 c8 c9 21 88 ca 20 | 50 21 87 22 20 5b 67 64 |....!.. |P!." [gd|
|00004a80| 62 2d 63 61 6c 6c 2d 66 | 72 6f 6d 2d 73 72 63 20 |b-call-f|rom-src |
|00004a90| 22 62 72 65 61 6b 20 22 | 20 63 6c 69 63 6b 2d 69 |"break "| click-i|
|00004aa0| 6e 73 69 64 65 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |nside-se|lection-|
|00004ab0| 70 20 65 65 20 65 78 74 | 65 6e 74 2d 73 74 72 69 |p ee ext|ent-stri|
|00004ac0| 6e 67 20 70 72 69 6d 61 | 72 79 2d 73 65 6c 65 63 |ng prima|ry-selec|
|00004ad0| 74 69 6f 6e 2d 65 78 74 | 65 6e 74 20 6d 6f 75 73 |tion-ext|ent mous|
|00004ae0| 65 2d 73 65 74 2d 70 6f | 69 6e 74 20 62 75 66 66 |e-set-po|int buff|
|00004af0| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 65 72 72 |er-file-|name err|
|00004b00| 6f 72 20 22 4e 6f 20 66 | 69 6c 65 20 69 6e 20 77 |or "No f|ile in w|
|00004b10| 69 6e 64 6f 77 22 20 67 | 64 62 73 72 63 2d 66 69 |indow" g|dbsrc-fi|
|00004b20| 6c 65 3a 6c 6e 6f 5d 20 | 34 20 28 23 24 20 2e 20 |le:lno] |4 (#$ . |
|00004b30| 31 38 38 30 37 29 20 22 | 65 22 5d 29 0a 23 40 31 |18807) "|e"]).#@1|
|00004b40| 33 37 20 53 65 74 20 61 | 20 74 65 6d 70 6f 72 61 |37 Set a| tempora|
|00004b50| 72 79 20 62 72 65 61 6b | 70 6f 69 6e 74 20 61 74 |ry break|point at|
|00004b60| 20 74 68 65 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 | the pos|ition of|
|00004b70| 20 74 68 65 20 6d 6f 75 | 73 65 20 63 6c 69 63 6b | the mou|se click|
|00004b80| 20 61 6e 64 20 74 68 65 | 6e 0a 63 6f 6e 74 69 6e | and the|n.contin|
|00004b90| 75 65 73 2e 20 20 54 68 | 69 73 20 63 61 6e 20 62 |ues.  Th|is can b|
|00004ba0| 65 20 62 6f 75 6e 64 20 | 74 6f 20 65 69 74 68 65 |e bound |to eithe|
|00004bb0| 72 20 61 20 6b 65 79 20 | 6f 72 20 61 20 6d 6f 75 |r a key |or a mou|
|00004bc0| 73 65 20 62 75 74 74 6f | 6e 2e 1f 0a 28 64 65 66 |se butto|n...(def|
|00004bd0| 61 6c 69 61 73 20 27 67 | 64 62 73 72 63 2d 73 65 |alias 'g|dbsrc-se|
|00004be0| 74 2d 74 62 72 65 61 6b | 2d 63 6f 6e 74 69 6e 75 |t-tbreak|-continu|
|00004bf0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 65 |e #[(&op|tional e|
|00004c00| 65 29 20 22 08 ac 82 09 | 10 08 ab 84 c2 08 21 88 |e) "....|......!.|
|00004c10| c3 c4 c5 20 50 21 88 c3 | c6 21 87 22 20 5b 65 65 |... P!..|.!." [ee|
|00004c20| 20 63 75 72 72 65 6e 74 | 2d 6d 6f 75 73 65 2d 65 | current|-mouse-e|
|00004c30| 76 65 6e 74 20 6d 6f 75 | 73 65 2d 73 65 74 2d 70 |vent mou|se-set-p|
|00004c40| 6f 69 6e 74 20 67 64 62 | 2d 63 61 6c 6c 2d 66 72 |oint gdb|-call-fr|
|00004c50| 6f 6d 2d 73 72 63 20 22 | 74 62 72 65 61 6b 20 22 |om-src "|tbreak "|
|00004c60| 20 67 64 62 73 72 63 2d | 66 69 6c 65 3a 6c 6e 6f | gdbsrc-|file:lno|
|00004c70| 20 22 63 22 5d 20 33 20 | 28 23 24 20 2e 20 31 39 | "c"] 3 |(#$ . 19|
|00004c80| 32 36 37 29 20 6e 69 6c | 5d 29 0a 28 62 79 74 65 |267) nil|]).(byte|
|00004c90| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 c4 c5 c6 |-code ".|.!......|
|00004ca0| 24 88 c7 c3 c6 5c 22 88 | c2 c8 c9 ca c6 24 88 c7 |$....\".|.....$..|
|00004cb0| c8 c6 5c 22 88 c2 cb cc | c5 c6 24 88 c7 cb c6 5c |..\"....|..$....\|
|00004cc0| 22 87 22 20 5b 72 65 71 | 75 69 72 65 20 61 64 76 |"." [req|uire adv|
|00004cd0| 69 63 65 20 61 64 2d 61 | 64 64 2d 61 64 76 69 63 |ice ad-a|dd-advic|
|00004ce0| 65 20 67 64 62 2d 73 65 | 74 2d 62 75 66 66 65 72 |e gdb-se|t-buffer|
|00004cf0| 20 28 67 64 62 73 72 63 | 20 6e 69 6c 20 74 20 28 | (gdbsrc| nil t (|
|00004d00| 61 64 76 69 63 65 20 6c | 61 6d 62 64 61 20 6e 69 |advice l|ambda ni|
|00004d10| 6c 20 22 41 64 76 69 73 | 65 64 20 74 6f 20 77 6f |l "Advis|ed to wo|
|00004d20| 72 6b 20 66 72 6f 6d 20 | 61 20 73 6f 75 72 63 65 |rk from |a source|
|00004d30| 20 62 75 66 66 65 72 20 | 69 6e 73 74 65 61 64 20 | buffer |instead |
|00004d40| 6f 66 20 6a 75 73 74 20 | 74 68 65 20 67 64 62 20 |of just |the gdb |
|00004d50| 62 75 66 66 65 72 2e 22 | 20 28 61 6e 64 20 67 64 |buffer."| (and gd|
|00004d60| 62 73 72 63 2d 63 61 6c | 6c 2d 70 20 67 64 62 73 |bsrc-cal|l-p gdbs|
|00004d70| 72 63 2d 61 73 73 6f 63 | 69 61 74 65 64 2d 62 75 |rc-assoc|iated-bu|
|00004d80| 66 66 65 72 20 28 73 65 | 74 71 20 63 75 72 72 65 |ffer (se|tq curre|
|00004d90| 6e 74 2d 67 64 62 2d 62 | 75 66 66 65 72 20 67 64 |nt-gdb-b|uffer gd|
|00004da0| 62 73 72 63 2d 61 73 73 | 6f 63 69 61 74 65 64 2d |bsrc-ass|ociated-|
|00004db0| 62 75 66 66 65 72 29 29 | 29 29 20 61 66 74 65 72 |buffer))|)) after|
|00004dc0| 20 6e 69 6c 20 61 64 2d | 61 63 74 69 76 61 74 65 | nil ad-|activate|
|00004dd0| 2d 6f 6e 20 67 64 62 2d | 64 69 73 70 6c 61 79 2d |-on gdb-|display-|
|00004de0| 6c 69 6e 65 20 28 67 64 | 62 73 72 63 20 6e 69 6c |line (gd|bsrc nil|
|00004df0| 20 74 20 28 61 64 76 69 | 63 65 20 6c 61 6d 62 64 | t (advi|ce lambd|
|00004e00| 61 20 6e 69 6c 20 22 41 | 64 76 69 73 65 64 20 74 |a nil "A|dvised t|
|00004e10| 6f 20 73 65 6c 65 63 74 | 20 74 68 65 20 73 6f 75 |o select| the sou|
|00004e20| 72 63 65 20 62 75 66 66 | 65 72 20 69 6e 73 74 65 |rce buff|er inste|
|00004e30| 61 64 20 6f 66 20 74 68 | 65 20 67 64 62 2d 62 75 |ad of th|e gdb-bu|
|00004e40| 66 66 65 72 22 20 28 61 | 64 2d 73 65 74 2d 61 72 |ffer" (a|d-set-ar|
|00004e50| 67 20 32 20 27 73 6f 75 | 72 63 65 29 20 61 64 2d |g 2 'sou|rce) ad-|
|00004e60| 64 6f 2d 69 74 20 28 73 | 61 76 65 2d 65 78 63 75 |do-it (s|ave-excu|
|00004e70| 72 73 69 6f 6e 20 28 6c | 65 74 2a 20 28 28 62 75 |rsion (l|et* ((bu|
|00004e80| 66 20 28 65 78 74 65 6e | 74 2d 6f 62 6a 65 63 74 |f (exten|t-object|
|00004e90| 20 67 64 62 2d 61 72 72 | 6f 77 2d 65 78 74 65 6e | gdb-arr|ow-exten|
|00004ea0| 74 29 29 20 28 77 69 6e | 20 28 67 65 74 2d 62 75 |t)) (win| (get-bu|
|00004eb0| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 62 75 66 29 |ffer-win|dow buf)|
|00004ec0| 29 29 20 28 73 65 74 71 | 20 67 64 62 73 72 63 2d |)) (setq| gdbsrc-|
|00004ed0| 6c 61 73 74 2d 73 72 63 | 2d 62 75 66 66 65 72 20 |last-src|-buffer |
|00004ee0| 62 75 66 29 20 28 73 65 | 6c 65 63 74 2d 77 69 6e |buf) (se|lect-win|
|00004ef0| 64 6f 77 20 77 69 6e 29 | 20 28 73 65 74 2d 77 69 |dow win)| (set-wi|
|00004f00| 6e 64 6f 77 2d 70 6f 69 | 6e 74 20 77 69 6e 20 28 |ndow-poi|nt win (|
|00004f10| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|00004f20| 69 74 69 6f 6e 20 67 64 | 62 2d 61 72 72 6f 77 2d |ition gd|b-arrow-|
|00004f30| 65 78 74 65 6e 74 29 29 | 20 28 73 65 74 2d 62 75 |extent))| (set-bu|
|00004f40| 66 66 65 72 20 62 75 66 | 29 29 20 28 61 6e 64 20 |ffer buf|)) (and |
|00004f50| 67 64 62 73 72 63 2d 61 | 63 74 69 76 65 2d 70 20 |gdbsrc-a|ctive-p |
|00004f60| 28 6e 6f 74 20 67 64 62 | 73 72 63 2d 6d 6f 64 65 |(not gdb|src-mode|
|00004f70| 29 20 28 6e 6f 74 20 28 | 65 71 20 28 63 75 72 72 |) (not (|eq (curr|
|00004f80| 65 6e 74 2d 62 75 66 66 | 65 72 29 20 63 75 72 72 |ent-buff|er) curr|
|00004f90| 65 6e 74 2d 67 64 62 2d | 62 75 66 66 65 72 29 29 |ent-gdb-|buffer))|
|00004fa0| 20 28 67 64 62 73 72 63 | 2d 6d 6f 64 65 20 31 29 | (gdbsrc|-mode 1)|
|00004fb0| 29 29 29 29 20 61 72 6f | 75 6e 64 20 67 64 62 2d |)))) aro|und gdb-|
|00004fc0| 66 69 6c 74 65 72 20 28 | 67 64 62 73 72 63 20 6e |filter (|gdbsrc n|
|00004fd0| 69 6c 20 74 20 28 61 64 | 76 69 63 65 20 6c 61 6d |il t (ad|vice lam|
|00004fe0| 62 64 61 20 6e 69 6c 20 | 28 6c 65 74 2a 20 28 28 |bda nil |(let* ((|
|00004ff0| 73 65 6c 62 75 66 20 28 | 77 69 6e 64 6f 77 2d 62 |selbuf (|window-b|
|00005000| 75 66 66 65 72 20 28 73 | 65 6c 65 63 74 65 64 2d |uffer (s|elected-|
|00005010| 77 69 6e 64 6f 77 29 29 | 29 20 77 69 6e 29 20 28 |window))|) win) (|
|00005020| 61 6e 64 20 28 73 61 76 | 65 2d 6d 61 74 63 68 2d |and (sav|e-match-|
|00005030| 64 61 74 61 20 28 73 74 | 72 69 6e 67 2d 6d 61 74 |data (st|ring-mat|
|00005040| 63 68 20 67 64 62 2d 70 | 72 6f 6d 70 74 2d 70 61 |ch gdb-p|rompt-pa|
|00005050| 74 74 65 72 6e 20 28 61 | 64 2d 67 65 74 2d 61 72 |ttern (a|d-get-ar|
|00005060| 67 20 31 29 29 29 20 28 | 70 72 6f 67 31 20 28 6e |g 1))) (|prog1 (n|
|00005070| 6f 74 20 67 64 62 73 72 | 63 2d 63 61 6c 6c 2d 70 |ot gdbsr|c-call-p|
|00005080| 29 20 28 73 65 74 71 20 | 67 64 62 73 72 63 2d 63 |) (setq |gdbsrc-c|
|00005090| 61 6c 6c 2d 70 20 6e 69 | 6c 29 29 20 28 73 65 74 |all-p ni|l)) (set|
|000050a0| 71 20 77 69 6e 20 28 64 | 69 73 70 6c 61 79 2d 62 |q win (d|isplay-b|
|000050b0| 75 66 66 65 72 20 63 75 | 72 72 65 6e 74 2d 67 64 |uffer cu|rrent-gd|
|000050c0| 62 2d 62 75 66 66 65 72 | 29 29 20 28 6e 6f 74 20 |b-buffer|)) (not |
|000050d0| 28 65 71 20 73 65 6c 62 | 75 66 20 63 75 72 72 65 |(eq selb|uf curre|
|000050e0| 6e 74 2d 67 64 62 2d 62 | 75 66 66 65 72 29 29 20 |nt-gdb-b|uffer)) |
|000050f0| 28 6e 6f 74 20 28 65 71 | 20 73 65 6c 62 75 66 20 |(not (eq| selbuf |
|00005100| 67 64 62 73 72 63 2d 6c | 61 73 74 2d 73 72 63 2d |gdbsrc-l|ast-src-|
|00005110| 62 75 66 66 65 72 29 29 | 20 28 70 72 6f 67 6e 20 |buffer))| (progn |
|00005120| 28 64 69 6e 67 20 6e 69 | 6c 20 27 77 61 72 70 29 |(ding ni|l 'warp)|
|00005130| 20 28 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 | (select|-window |
|00005140| 77 69 6e 29 29 29 29 29 | 29 5d 20 35 29 0a 28 64 |win)))))|)] 5).(d|
|00005150| 65 66 61 6c 69 61 73 20 | 27 67 64 62 73 72 63 2d |efalias |'gdbsrc-|
|00005160| 72 65 73 65 74 20 23 5b | 6e 69 6c 20 22 c0 20 88 |reset #[|nil ". .|
|00005170| c1 12 c3 c4 c5 20 5c 22 | 87 22 20 5b 67 64 62 2d |..... \"|." [gdb-|
|00005180| 64 65 6c 65 74 65 2d 61 | 72 72 6f 77 2d 65 78 74 |delete-a|rrow-ext|
|00005190| 65 6e 74 20 6e 69 6c 20 | 67 64 62 73 72 63 2d 67 |ent nil |gdbsrc-g|
|000051a0| 6c 6f 62 61 6c 2d 6d 6f | 64 65 20 6d 61 70 63 61 |lobal-mo|de mapca|
|000051b0| 72 20 23 5b 28 62 75 66 | 66 65 72 29 20 22 08 71 |r #[(buf|fer) ".q|
|000051c0| 88 09 5c 6e 61 ad 83 c3 | c4 21 87 22 20 5b 62 75 |..\na...|.!." [bu|
|000051d0| 66 66 65 72 20 67 64 62 | 73 72 63 2d 61 73 73 6f |ffer gdb|src-asso|
|000051e0| 63 69 61 74 65 64 2d 62 | 75 66 66 65 72 20 63 75 |ciated-b|uffer cu|
|000051f0| 72 72 65 6e 74 2d 67 64 | 62 2d 62 75 66 66 65 72 |rrent-gd|b-buffer|
|00005200| 20 67 64 62 73 72 63 2d | 6d 6f 64 65 20 2d 31 5d | gdbsrc-|mode -1]|
|00005210| 20 32 5d 20 62 75 66 66 | 65 72 2d 6c 69 73 74 5d | 2] buff|er-list]|
|00005220| 20 33 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 3]).(by|te-code |
|00005230| 22 c0 c1 21 ac 96 c1 c2 | c3 c4 4e b7 41 1a c0 5c |"..!....|..N.A..\|
|00005240| 6e 21 ad 82 5c 6e 4b 29 | ae 82 c3 4b 4d 88 c0 87 |n!..\nK)|...KM...|
|00005250| 22 20 5b 66 62 6f 75 6e | 64 70 20 61 64 2d 4f 72 |" [fboun|dp ad-Or|
|00005260| 69 67 2d 67 64 62 2d 73 | 65 6e 74 69 6e 65 6c 2d |ig-gdb-s|entinel-|
|00005270| 61 66 74 65 72 2d 67 64 | 62 73 72 63 20 6f 72 69 |after-gd|bsrc ori|
|00005280| 67 6e 61 6d 65 20 67 64 | 62 2d 73 65 6e 74 69 6e |gname gd|b-sentin|
|00005290| 65 6c 20 61 64 2d 61 64 | 76 69 63 65 2d 69 6e 66 |el ad-ad|vice-inf|
|000052a0| 6f 5d 20 34 29 0a 23 40 | 36 31 20 54 68 69 73 20 |o] 4).#@|61 This |
|000052b0| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 61 64 76 69 |function| is advi|
|000052c0| 73 65 64 2e 0a 0a 50 65 | 72 6d 61 6e 65 6e 74 20 |sed...Pe|rmanent |
|000052d0| 61 66 74 65 72 2d 61 64 | 76 69 63 65 20 60 67 64 |after-ad|vice `gd|
|000052e0| 62 73 72 63 27 3a 1f 0a | 28 64 65 66 61 6c 69 61 |bsrc':..|(defalia|
|000052f0| 73 20 27 67 64 62 2d 73 | 65 6e 74 69 6e 65 6c 20 |s 'gdb-s|entinel |
|00005300| 23 5b 28 70 72 6f 63 20 | 6d 73 67 29 20 22 c0 19 |#[(proc |msg) "..|
|00005310| c2 0b 0c 5c 22 11 c5 20 | 88 c6 c7 21 88 09 29 87 |...\".. |...!..).|
|00005320| 22 20 5b 6e 69 6c 20 61 | 64 2d 72 65 74 75 72 6e |" [nil a|d-return|
|00005330| 2d 76 61 6c 75 65 20 61 | 64 2d 4f 72 69 67 2d 67 |-value a|d-Orig-g|
|00005340| 64 62 2d 73 65 6e 74 69 | 6e 65 6c 2d 61 66 74 65 |db-senti|nel-afte|
|00005350| 72 2d 67 64 62 73 72 63 | 20 70 72 6f 63 20 6d 73 |r-gdbsrc| proc ms|
|00005360| 67 20 67 64 62 73 72 63 | 2d 72 65 73 65 74 20 6d |g gdbsrc|-reset m|
|00005370| 65 73 73 61 67 65 20 22 | 47 64 62 73 72 63 20 66 |essage "|Gdbsrc f|
|00005380| 69 6e 69 73 68 65 64 22 | 5d 20 33 20 28 23 24 20 |inished"|] 3 (#$ |
|00005390| 2e 20 32 31 31 36 33 29 | 5d 29 0a 28 70 72 6f 76 |. 21163)|]).(prov|
|000053a0| 69 64 65 20 27 67 64 62 | 73 72 63 29 0a          |ide 'gdb|src).   |
+--------+-------------------------+-------------------------+--------+--------+